home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-10-28 | 50.9 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 6d 73 40 70 73 69 |piled by| rms@psi|
|00000020| 6c 6f 63 69 6e 2e 67 6e | 75 2e 61 69 2e 6d 69 74 |locin.gn|u.ai.mit|
|00000030| 2e 65 64 75 20 6f 6e 20 | 4d 6f 6e 20 4a 75 6c 20 |.edu on |Mon Jul |
|00000040| 32 39 20 32 30 3a 30 31 | 3a 30 31 20 31 39 39 36 |29 20:01|:01 1996|
|00000050| 0a 3b 3b 3b 20 66 72 6f | 6d 20 66 69 6c 65 20 2f |.;;; fro|m file /|
|00000060| 68 6f 6d 65 2f 66 73 66 | 2f 72 6d 73 2f 65 31 39 |home/fsf|/rms/e19|
|00000070| 2f 6c 69 73 70 2f 66 39 | 30 2e 65 6c 0a 3b 3b 3b |/lisp/f9|0.el.;;;|
|00000080| 20 65 6d 61 63 73 20 76 | 65 72 73 69 6f 6e 20 31 | emacs v|ersion 1|
|00000090| 39 2e 33 31 2e 39 37 2e | 32 2e 0a 3b 3b 3b 20 62 |9.31.97.|2..;;; b|
|000000a0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000b0| 46 53 46 20 32 2e 31 30 | 0a 3b 3b 3b 20 6f 70 74 |FSF 2.10|.;;; opt|
|000000c0| 69 6d 69 7a 61 74 69 6f | 6e 20 69 73 20 6f 6e 2e |imizatio|n is on.|
|000000d0| 0a 3b 3b 3b 20 74 68 69 | 73 20 66 69 6c 65 20 75 |.;;; thi|s file u|
|000000e0| 73 65 73 20 6f 70 63 6f | 64 65 73 20 77 68 69 63 |ses opco|des whic|
|000000f0| 68 20 64 6f 20 6e 6f 74 | 20 65 78 69 73 74 20 69 |h do not| exist i|
|00000100| 6e 20 45 6d 61 63 73 20 | 31 38 2e 0a 0a 28 69 66 |n Emacs |18...(if|
|00000110| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000120| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 29 0a 09 20 |macs-ver|sion).. |
|00000130| 28 6f 72 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(or (and| (boundp|
|00000140| 20 27 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e | 'epoch:|:version|
|00000150| 29 20 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e |) epoch:|:version|
|00000160| 29 0a 09 20 20 20 20 20 | 28 73 74 72 69 6e 67 2d |).. |(string-|
|00000170| 6c 65 73 73 70 20 65 6d | 61 63 73 2d 76 65 72 73 |lessp em|acs-vers|
|00000180| 69 6f 6e 20 22 31 39 2e | 32 39 22 29 29 29 0a 20 |ion "19.|29"))). |
|00000190| 20 20 20 28 65 72 72 6f | 72 20 22 60 66 39 30 2e | (erro|r "`f90.|
|000001a0| 65 6c 27 20 77 61 73 20 | 63 6f 6d 70 69 6c 65 64 |el' was |compiled|
|000001b0| 20 66 6f 72 20 45 6d 61 | 63 73 20 31 39 2e 32 39 | for Ema|cs 19.29|
|000001c0| 20 6f 72 20 6c 61 74 65 | 72 22 29 29 0a 0a 0a 23 | or late|r"))...#|
|000001d0| 40 34 34 20 41 64 64 72 | 65 73 73 20 6f 66 20 6d |@44 Addr|ess of m|
|000001e0| 61 69 6c 69 6e 67 20 6c | 69 73 74 20 66 6f 72 20 |ailing l|ist for |
|000001f0| 46 39 30 20 6d 6f 64 65 | 20 62 75 67 73 2e 1f 0a |F90 mode| bugs...|
|00000200| 28 64 65 66 63 6f 6e 73 | 74 20 62 75 67 2d 66 39 |(defcons|t bug-f9|
|00000210| 30 2d 6d 6f 64 65 20 22 | 54 2e 45 69 6e 61 72 73 |0-mode "|T.Einars|
|00000220| 73 6f 6e 40 63 6c 61 62 | 2e 65 72 69 63 73 73 6f |son@clab|.ericsso|
|00000230| 6e 2e 73 65 22 20 28 23 | 24 20 2e 20 34 36 38 29 |n.se" (#|$ . 468)|
|00000240| 29 0a 23 40 34 32 20 2a | 45 78 74 72 61 20 69 6e |).#@42 *|Extra in|
|00000250| 64 65 6e 74 61 74 69 6f | 6e 20 61 70 70 6c 69 65 |dentatio|n applie|
|00000260| 64 20 74 6f 20 44 4f 20 | 62 6c 6f 63 6b 73 2e 1f |d to DO |blocks..|
|00000270| 0a 28 64 65 66 76 61 72 | 20 66 39 30 2d 64 6f 2d |.(defvar| f90-do-|
|00000280| 69 6e 64 65 6e 74 20 33 | 20 28 23 24 20 2e 20 2d |indent 3| (#$ . -|
|00000290| 35 38 33 29 29 0a 23 40 | 37 33 20 2a 45 78 74 72 |583)).#@|73 *Extr|
|000002a0| 61 20 69 6e 64 65 6e 74 | 61 74 69 6f 6e 20 61 70 |a indent|ation ap|
|000002b0| 70 6c 69 65 64 20 74 6f | 20 49 46 2c 20 53 45 4c |plied to| IF, SEL|
|000002c0| 45 43 54 20 43 41 53 45 | 2c 20 57 48 45 52 45 20 |ECT CASE|, WHERE |
|000002d0| 61 6e 64 20 46 4f 52 41 | 4c 4c 20 62 6c 6f 63 6b |and FORA|LL block|
|000002e0| 73 2e 1f 0a 28 64 65 66 | 76 61 72 20 66 39 30 2d |s...(def|var f90-|
|000002f0| 69 66 2d 69 6e 64 65 6e | 74 20 33 20 28 23 24 20 |if-inden|t 3 (#$ |
|00000300| 2e 20 2d 36 36 37 29 29 | 0a 23 40 37 30 20 2a 45 |. -667))|.#@70 *E|
|00000310| 78 74 72 61 20 69 6e 64 | 65 6e 74 61 74 69 6f 6e |xtra ind|entation|
|00000320| 20 61 70 70 6c 69 65 64 | 20 74 6f 20 54 59 50 45 | applied| to TYPE|
|00000330| 2c 20 49 4e 54 45 52 46 | 41 43 45 20 61 6e 64 20 |, INTERF|ACE and |
|00000340| 42 4c 4f 43 4b 20 44 41 | 54 41 20 62 6c 6f 63 6b |BLOCK DA|TA block|
|00000350| 73 2e 1f 0a 28 64 65 66 | 76 61 72 20 66 39 30 2d |s...(def|var f90-|
|00000360| 74 79 70 65 2d 69 6e 64 | 65 6e 74 20 33 20 28 23 |type-ind|ent 3 (#|
|00000370| 24 20 2e 20 2d 37 38 32 | 29 29 0a 23 40 37 34 20 |$ . -782|)).#@74 |
|00000380| 2a 45 78 74 72 61 20 69 | 6e 64 65 6e 74 61 74 69 |*Extra i|ndentati|
|00000390| 6f 6e 20 61 70 70 6c 69 | 65 64 20 74 6f 20 50 52 |on appli|ed to PR|
|000003a0| 4f 47 52 41 4d 2f 4d 4f | 44 55 4c 45 2f 53 55 42 |OGRAM/MO|DULE/SUB|
|000003b0| 52 4f 55 54 49 4e 45 2f | 46 55 4e 43 54 49 4f 4e |ROUTINE/|FUNCTION|
|000003c0| 20 62 6c 6f 63 6b 73 2e | 1f 0a 28 64 65 66 76 61 | blocks.|..(defva|
|000003d0| 72 20 66 39 30 2d 70 72 | 6f 67 72 61 6d 2d 69 6e |r f90-pr|ogram-in|
|000003e0| 64 65 6e 74 20 32 20 28 | 23 24 20 2e 20 2d 38 39 |dent 2 (|#$ . -89|
|000003f0| 36 29 29 0a 23 40 35 35 | 20 2a 45 78 74 72 61 20 |6)).#@55| *Extra |
|00000400| 69 6e 64 65 6e 74 61 74 | 69 6f 6e 20 61 70 70 6c |indentat|ion appl|
|00000410| 69 65 64 20 74 6f 20 46 | 39 30 20 63 6f 6e 74 69 |ied to F|90 conti|
|00000420| 6e 75 61 74 69 6f 6e 20 | 6c 69 6e 65 73 2e 1f 0a |nuation |lines...|
|00000430| 28 64 65 66 76 61 72 20 | 66 39 30 2d 63 6f 6e 74 |(defvar |f90-cont|
|00000440| 69 6e 75 61 74 69 6f 6e | 2d 69 6e 64 65 6e 74 20 |inuation|-indent |
|00000450| 35 20 28 23 24 20 2e 20 | 2d 31 30 31 37 29 29 0a |5 (#$ . |-1017)).|
|00000460| 23 40 37 36 20 2a 53 74 | 72 69 6e 67 20 69 6e 73 |#@76 *St|ring ins|
|00000470| 65 72 74 65 64 20 62 79 | 20 5c 5b 66 39 30 2d 63 |erted by| \[f90-c|
|00000480| 6f 6d 6d 65 6e 74 2d 72 | 65 67 69 6f 6e 5d 20 61 |omment-r|egion] a|
|00000490| 74 20 73 74 61 72 74 20 | 6f 66 20 65 61 63 68 20 |t start |of each |
|000004a0| 6c 69 6e 65 20 69 6e 20 | 72 65 67 69 6f 6e 2e 1f |line in |region..|
|000004b0| 0a 28 64 65 66 76 61 72 | 20 66 39 30 2d 63 6f 6d |.(defvar| f90-com|
|000004c0| 6d 65 6e 74 2d 72 65 67 | 69 6f 6e 20 22 21 21 24 |ment-reg|ion "!!$|
|000004d0| 22 20 28 23 24 20 2e 20 | 2d 31 31 32 35 29 29 0a |" (#$ . |-1125)).|
|000004e0| 23 40 35 37 20 2a 52 65 | 67 65 78 70 20 73 61 79 |#@57 *Re|gexp say|
|000004f0| 69 6e 67 20 77 68 69 63 | 68 20 63 6f 6d 6d 65 6e |ing whic|h commen|
|00000500| 74 73 20 74 6f 20 62 65 | 20 69 6e 64 65 6e 74 65 |ts to be| indente|
|00000510| 64 20 6c 69 6b 65 20 63 | 6f 64 65 2e 1f 0a 28 64 |d like c|ode...(d|
|00000520| 65 66 76 61 72 20 66 39 | 30 2d 69 6e 64 65 6e 74 |efvar f9|0-indent|
|00000530| 65 64 2d 63 6f 6d 6d 65 | 6e 74 2d 72 65 20 22 21 |ed-comme|nt-re "!|
|00000540| 22 20 28 23 24 20 2e 20 | 2d 31 32 35 33 29 29 0a |" (#$ . |-1253)).|
|00000550| 23 40 37 31 20 2a 52 65 | 67 65 78 70 20 6f 66 20 |#@71 *Re|gexp of |
|00000560| 63 6f 6d 6d 65 6e 74 2d | 6c 69 6b 65 20 64 69 72 |comment-|like dir|
|00000570| 65 63 74 69 76 65 20 6c | 69 6b 65 20 22 21 48 50 |ective l|ike "!HP|
|00000580| 46 5c 5c 24 22 2c 20 6e | 6f 74 20 74 6f 20 62 65 |F\\$", n|ot to be|
|00000590| 20 69 6e 64 65 6e 74 65 | 64 2e 1f 0a 28 64 65 66 | indente|d...(def|
|000005a0| 76 61 72 20 66 39 30 2d | 64 69 72 65 63 74 69 76 |var f90-|directiv|
|000005b0| 65 2d 63 6f 6d 6d 65 6e | 74 2d 72 65 20 22 21 68 |e-commen|t-re "!h|
|000005c0| 70 66 5c 5c 24 22 20 28 | 23 24 20 2e 20 2d 31 33 |pf\\$" (|#$ . -13|
|000005d0| 36 35 29 29 0a 23 40 37 | 30 20 2a 74 20 6d 61 6b |65)).#@7|0 *t mak|
|000005e0| 65 73 20 61 75 74 6f 6d | 61 74 69 63 20 69 6e 73 |es autom|atic ins|
|000005f0| 65 72 74 69 6f 6e 20 6f | 66 20 26 20 61 74 20 62 |ertion o|f & at b|
|00000600| 65 67 69 6e 6e 69 6e 67 | 20 6f 66 20 63 6f 6e 74 |eginning| of cont|
|00000610| 69 6e 75 61 74 69 6f 6e | 20 6c 69 6e 65 2e 1f 0a |inuation| line...|
|00000620| 28 64 65 66 76 61 72 20 | 66 39 30 2d 62 65 67 69 |(defvar |f90-begi|
|00000630| 6e 6e 69 6e 67 2d 61 6d | 70 65 72 73 61 6e 64 20 |nning-am|persand |
|00000640| 74 20 28 23 24 20 2e 20 | 2d 31 34 39 38 29 29 0a |t (#$ . |-1498)).|
|00000650| 23 40 31 38 30 20 2a 46 | 72 6f 6d 20 61 6e 20 45 |#@180 *F|rom an E|
|00000660| 4e 44 20 73 74 61 74 65 | 6d 65 6e 74 2c 20 63 68 |ND state|ment, ch|
|00000670| 65 63 6b 20 61 6e 64 20 | 66 69 6c 6c 20 74 68 65 |eck and |fill the|
|00000680| 20 65 6e 64 20 75 73 69 | 6e 67 20 6d 61 74 63 68 | end usi|ng match|
|00000690| 69 6e 67 20 62 6c 6f 63 | 6b 20 73 74 61 72 74 2e |ing bloc|k start.|
|000006a0| 0a 41 6c 6c 6f 77 65 64 | 20 76 61 6c 75 65 73 20 |.Allowed| values |
|000006b0| 61 72 65 20 27 62 6c 69 | 6e 6b 2c 20 27 6e 6f 2d |are 'bli|nk, 'no-|
|000006c0| 62 6c 69 6e 6b 2c 20 61 | 6e 64 20 6e 69 6c 2c 20 |blink, a|nd nil, |
|000006d0| 77 68 69 63 68 20 64 65 | 74 65 72 6d 69 6e 65 0a |which de|termine.|
|000006e0| 77 68 65 74 68 65 72 20 | 74 6f 20 62 6c 69 6e 6b |whether |to blink|
|000006f0| 20 74 68 65 20 6d 61 74 | 63 68 69 6e 67 20 62 65 | the mat|ching be|
|00000700| 67 69 6e 6e 69 6e 67 2e | 1f 0a 28 64 65 66 76 61 |ginning.|..(defva|
|00000710| 72 20 66 39 30 2d 73 6d | 61 72 74 2d 65 6e 64 20 |r f90-sm|art-end |
|00000720| 28 71 75 6f 74 65 20 62 | 6c 69 6e 6b 29 20 28 23 |(quote b|link) (#|
|00000730| 24 20 2e 20 2d 31 36 32 | 32 29 29 0a 23 40 36 36 |$ . -162|2)).#@66|
|00000740| 20 2a 52 65 67 65 78 70 | 20 68 6f 6c 64 69 6e 67 | *Regexp| holding|
|00000750| 20 6c 69 73 74 20 6f 66 | 20 64 65 6c 69 6d 69 74 | list of| delimit|
|00000760| 65 72 73 20 61 74 20 77 | 68 69 63 68 20 6c 69 6e |ers at w|hich lin|
|00000770| 65 73 20 6d 61 79 20 62 | 65 20 62 72 6f 6b 65 6e |es may b|e broken|
|00000780| 2e 1f 0a 28 64 65 66 76 | 61 72 20 66 39 30 2d 62 |...(defv|ar f90-b|
|00000790| 72 65 61 6b 2d 64 65 6c | 69 6d 69 74 65 72 73 20 |reak-del|imiters |
|000007a0| 22 5b 2d 2b 5c 5c 2a 2f | 3e 3c 3d 2c 25 20 09 5d |"[-+\\*/|><=,% .]|
|000007b0| 22 20 28 23 24 20 2e 20 | 2d 31 38 35 37 29 29 0a |" (#$ . |-1857)).|
|000007c0| 23 40 37 30 20 2a 4e 6f | 6e 2d 6e 69 6c 20 63 61 |#@70 *No|n-nil ca|
|000007d0| 75 73 65 73 20 60 66 39 | 30 2d 64 6f 2d 61 75 74 |uses `f9|0-do-aut|
|000007e0| 6f 2d 66 69 6c 6c 27 20 | 74 6f 20 62 72 65 61 6b |o-fill' |to break|
|000007f0| 20 6c 69 6e 65 73 20 62 | 65 66 6f 72 65 20 64 65 | lines b|efore de|
|00000800| 6c 69 6d 69 74 65 72 73 | 2e 1f 0a 28 64 65 66 76 |limiters|...(defv|
|00000810| 61 72 20 66 39 30 2d 62 | 72 65 61 6b 2d 62 65 66 |ar f90-b|reak-bef|
|00000820| 6f 72 65 2d 64 65 6c 69 | 6d 69 74 65 72 73 20 74 |ore-deli|miters t|
|00000830| 20 28 23 24 20 2e 20 2d | 31 39 38 39 29 29 0a 23 | (#$ . -|1989)).#|
|00000840| 40 31 31 34 20 2a 41 75 | 74 6f 6d 61 74 69 63 20 |@114 *Au|tomatic |
|00000850| 63 61 73 65 20 63 6f 6e | 76 65 72 73 69 6f 6e 20 |case con|version |
|00000860| 6f 66 20 6b 65 79 77 6f | 72 64 73 2e 0a 20 20 54 |of keywo|rds.. T|
|00000870| 68 65 20 6f 70 74 69 6f | 6e 73 20 61 72 65 20 27 |he optio|ns are '|
|00000880| 64 6f 77 6e 63 61 73 65 | 2d 77 6f 72 64 2c 20 27 |downcase|-word, '|
|00000890| 75 70 63 61 73 65 2d 77 | 6f 72 64 2c 20 27 63 61 |upcase-w|ord, 'ca|
|000008a0| 70 69 74 61 6c 69 7a 65 | 2d 77 6f 72 64 20 61 6e |pitalize|-word an|
|000008b0| 64 20 6e 69 6c 1f 0a 28 | 64 65 66 76 61 72 20 66 |d nil..(|defvar f|
|000008c0| 39 30 2d 61 75 74 6f 2d | 6b 65 79 77 6f 72 64 2d |90-auto-|keyword-|
|000008d0| 63 61 73 65 20 6e 69 6c | 20 28 23 24 20 2e 20 2d |case nil| (#$ . -|
|000008e0| 32 31 31 37 29 29 0a 23 | 40 33 36 20 2a 49 66 20 |2117)).#|@36 *If |
|000008f0| 6e 69 6c 2c 20 6c 65 66 | 74 2d 6a 75 73 74 69 66 |nil, lef|t-justif|
|00000900| 79 20 6c 69 6e 65 6e 75 | 6d 62 65 72 73 2e 1f 0a |y linenu|mbers...|
|00000910| 28 64 65 66 76 61 72 20 | 66 39 30 2d 6c 65 61 76 |(defvar |f90-leav|
|00000920| 65 2d 6c 69 6e 65 2d 6e | 6f 20 6e 69 6c 20 28 23 |e-line-n|o nil (#|
|00000930| 24 20 2e 20 2d 32 32 38 | 34 29 29 0a 23 40 36 38 |$ . -228|4)).#@68|
|00000940| 20 2a 4e 6f 6e 2d 6e 69 | 6c 20 64 69 73 70 6c 61 | *Non-ni|l displa|
|00000950| 79 73 20 61 20 73 74 61 | 72 74 75 70 20 6d 65 73 |ys a sta|rtup mes|
|00000960| 73 61 67 65 20 77 68 65 | 6e 20 46 39 30 20 6d 6f |sage whe|n F90 mo|
|00000970| 64 65 20 69 73 20 66 69 | 72 73 74 20 63 61 6c 6c |de is fi|rst call|
|00000980| 65 64 2e 1f 0a 28 64 65 | 66 76 61 72 20 66 39 30 |ed...(de|fvar f90|
|00000990| 2d 73 74 61 72 74 75 70 | 2d 6d 65 73 73 61 67 65 |-startup|-message|
|000009a0| 20 74 20 28 23 24 20 2e | 20 2d 32 33 36 39 29 29 | t (#$ .| -2369))|
|000009b0| 0a 23 40 32 36 20 52 65 | 67 65 78 70 20 66 6f 72 |.#@26 Re|gexp for|
|000009c0| 20 46 39 30 20 6b 65 79 | 77 6f 72 64 73 2e 1f 0a | F90 key|words...|
|000009d0| 28 64 65 66 63 6f 6e 73 | 74 20 66 39 30 2d 6b 65 |(defcons|t f90-ke|
|000009e0| 79 77 6f 72 64 73 2d 72 | 65 20 28 63 6f 6e 63 61 |ywords-r|e (conca|
|000009f0| 74 20 22 5c 5c 3c 5c 5c | 28 61 5c 5c 28 6c 6c 6f |t "\\<\\|(a\\(llo|
|00000a00| 63 61 74 5c 5c 28 61 62 | 6c 65 5c 5c 7c 65 5c 5c |cat\\(ab|le\\|e\\|
|00000a10| 29 5c 5c 7c 73 73 69 67 | 6e 5c 5c 28 5c 5c 7c 6d |)\\|ssig|n\\(\\|m|
|00000a20| 65 6e 74 5c 5c 29 5c 5c | 29 5c 5c 7c 62 5c 5c 28 |ent\\)\\|)\\|b\\(|
|00000a30| 61 63 6b 73 70 61 63 65 | 5c 5c 7c 22 20 22 6c 6f |ackspace|\\|" "lo|
|00000a40| 63 6b 5c 5c 29 5c 5c 7c | 63 5c 5c 28 61 5c 5c 28 |ck\\)\\||c\\(a\\(|
|00000a50| 6c 6c 5c 5c 7c 73 65 5c | 5c 29 5c 5c 7c 68 61 72 |ll\\|se\|\)\\|har|
|00000a60| 61 63 74 65 72 5c 5c 7c | 6c 6f 73 65 5c 5c 7c 6f |acter\\||lose\\|o|
|00000a70| 5c 5c 28 6d 5c 5c 28 6d | 6f 6e 5c 5c 7c 70 6c 65 |\\(m\\(m|on\\|ple|
|00000a80| 78 5c 5c 29 5c 5c 7c 22 | 20 22 6e 74 5c 5c 28 61 |x\\)\\|"| "nt\\(a|
|00000a90| 69 6e 73 5c 5c 7c 69 6e | 75 65 5c 5c 29 5c 5c 29 |ins\\|in|ue\\)\\)|
|00000aa0| 5c 5c 7c 79 63 6c 65 5c | 5c 29 5c 5c 7c 64 5c 5c |\\|ycle\|\)\\|d\\|
|00000ab0| 28 61 74 61 5c 5c 7c 65 | 61 6c 6c 6f 63 61 74 65 |(ata\\|e|allocate|
|00000ac0| 5c 5c 7c 69 6d 65 6e 73 | 69 6f 6e 5c 5c 7c 22 20 |\\|imens|ion\\|" |
|00000ad0| 22 6f 5c 5c 28 5c 5c 7c | 75 62 6c 65 5c 5c 29 5c |"o\\(\\||uble\\)\|
|00000ae0| 5c 29 5c 5c 7c 65 5c 5c | 28 6c 73 65 5c 5c 28 5c |\)\\|e\\|(lse\\(\|
|00000af0| 5c 7c 69 66 5c 5c 7c 77 | 68 65 72 65 5c 5c 29 5c |\|if\\|w|here\\)\|
|00000b00| 5c 7c 6e 5c 5c 28 64 5c | 5c 28 5c 5c 7c 64 6f 5c |\|n\\(d\|\(\\|do\|
|00000b10| 5c 7c 66 69 6c 65 5c 5c | 7c 22 20 22 69 66 5c 5c |\|file\\||" "if\\|
|00000b20| 29 5c 5c 7c 74 72 79 5c | 5c 29 5c 5c 7c 71 75 69 |)\\|try\|\)\\|qui|
|00000b30| 76 61 6c 65 6e 63 65 5c | 5c 7c 78 5c 5c 28 69 74 |valence\|\|x\\(it|
|00000b40| 5c 5c 7c 74 65 72 6e 61 | 6c 5c 5c 29 5c 5c 29 5c |\\|terna|l\\)\\)\|
|00000b50| 5c 7c 66 5c 5c 28 6f 72 | 5c 5c 28 61 6c 6c 5c 5c |\|f\\(or|\\(all\\|
|00000b60| 7c 22 20 22 6d 61 74 5c | 5c 29 5c 5c 7c 75 6e 63 ||" "mat\|\)\\|unc|
|00000b70| 74 69 6f 6e 5c 5c 29 5c | 5c 7c 67 6f 74 6f 5c 5c |tion\\)\|\|goto\\|
|00000b80| 7c 69 5c 5c 28 66 5c 5c | 7c 6d 70 6c 69 63 69 74 ||i\\(f\\||mplicit|
|00000b90| 5c 5c 7c 6e 5c 5c 28 63 | 6c 75 64 65 5c 5c 7c 71 |\\|n\\(c|lude\\|q|
|00000ba0| 75 69 72 65 5c 5c 7c 74 | 5c 5c 28 22 20 22 65 5c |uire\\|t|\\(" "e\|
|00000bb0| 5c 28 67 65 72 5c 5c 7c | 6e 74 5c 5c 7c 72 66 61 |\(ger\\||nt\\|rfa|
|00000bc0| 63 65 5c 5c 29 5c 5c 7c | 72 69 6e 73 69 63 5c 5c |ce\\)\\||rinsic\\|
|00000bd0| 29 5c 5c 29 5c 5c 29 5c | 5c 7c 6c 6f 67 69 63 61 |)\\)\\)\|\|logica|
|00000be0| 6c 5c 5c 7c 6d 6f 64 75 | 6c 65 5c 5c 7c 6e 5c 5c |l\\|modu|le\\|n\\|
|00000bf0| 28 22 20 22 61 6d 65 6c | 69 73 74 5c 5c 7c 6f 6e |(" "amel|ist\\|on|
|00000c00| 65 5c 5c 7c 75 6c 6c 69 | 66 79 5c 5c 29 5c 5c 7c |e\\|ulli|fy\\)\\||
|00000c10| 6f 5c 5c 28 6e 6c 79 5c | 5c 7c 70 5c 5c 28 65 6e |o\\(nly\|\|p\\(en|
|00000c20| 5c 5c 7c 65 72 61 74 6f | 72 5c 5c 7c 74 69 6f 6e |\\|erato|r\\|tion|
|00000c30| 61 6c 5c 5c 29 5c 5c 29 | 5c 5c 7c 70 5c 5c 28 61 |al\\)\\)|\\|p\\(a|
|00000c40| 5c 5c 28 22 20 22 72 61 | 6d 65 74 65 72 5c 5c 7c |\\(" "ra|meter\\||
|00000c50| 75 73 65 5c 5c 29 5c 5c | 7c 6f 69 6e 74 65 72 5c |use\\)\\||ointer\|
|00000c60| 5c 7c 72 5c 5c 28 65 63 | 69 73 69 6f 6e 5c 5c 7c |\|r\\(ec|ision\\||
|00000c70| 69 5c 5c 28 6e 74 5c 5c | 7c 76 61 74 65 5c 5c 29 |i\\(nt\\||vate\\)|
|00000c80| 5c 5c 7c 6f 5c 5c 28 22 | 20 22 63 65 64 75 72 65 |\\|o\\("| "cedure|
|00000c90| 5c 5c 7c 67 72 61 6d 5c | 5c 29 5c 5c 29 5c 5c 7c |\\|gram\|\)\\)\\||
|00000ca0| 75 62 6c 69 63 5c 5c 29 | 5c 5c 7c 72 65 5c 5c 28 |ublic\\)|\\|re\\(|
|00000cb0| 61 5b 64 6c 5d 5c 5c 7c | 63 75 72 73 69 76 65 5c |a[dl]\\||cursive\|
|00000cc0| 5c 7c 73 75 6c 74 5c 5c | 7c 74 75 72 6e 5c 5c 7c |\|sult\\||turn\\||
|00000cd0| 77 69 6e 64 5c 5c 29 5c | 5c 7c 22 20 22 73 5c 5c |wind\\)\|\|" "s\\|
|00000ce0| 28 61 76 65 5c 5c 7c 65 | 5c 5c 28 6c 65 63 74 5c |(ave\\|e|\\(lect\|
|00000cf0| 5c 7c 71 75 65 6e 63 65 | 5c 5c 29 5c 5c 7c 74 6f |\|quence|\\)\\|to|
|00000d00| 70 5c 5c 7c 75 62 72 6f | 75 74 69 6e 65 5c 5c 29 |p\\|ubro|utine\\)|
|00000d10| 5c 5c 7c 74 5c 5c 28 61 | 72 67 65 74 5c 5c 7c 68 |\\|t\\(a|rget\\|h|
|00000d20| 65 6e 5c 5c 7c 22 20 22 | 79 70 65 5c 5c 29 5c 5c |en\\|" "|ype\\)\\|
|00000d30| 7c 75 73 65 5c 5c 7c 77 | 5c 5c 28 68 5c 5c 28 65 ||use\\|w|\\(h\\(e|
|00000d40| 72 65 5c 5c 7c 69 6c 65 | 5c 5c 29 5c 5c 7c 72 69 |re\\|ile|\\)\\|ri|
|00000d50| 74 65 5c 5c 29 5c 5c 29 | 5c 5c 3e 22 29 20 28 23 |te\\)\\)|\\>") (#|
|00000d60| 24 20 2e 20 32 34 38 36 | 29 29 0a 23 40 34 32 20 |$ . 2486|)).#@42 |
|00000d70| 4b 65 79 77 6f 72 64 2d | 72 65 67 65 78 70 20 66 |Keyword-|regexp f|
|00000d80| 6f 72 20 66 6f 6e 74 2d | 6c 6f 63 6b 20 6c 65 76 |or font-|lock lev|
|00000d90| 65 6c 20 3e 3d 20 33 2e | 1f 0a 28 64 65 66 63 6f |el >= 3.|..(defco|
|00000da0| 6e 73 74 20 66 39 30 2d | 6b 65 79 77 6f 72 64 73 |nst f90-|keywords|
|00000db0| 2d 6c 65 76 65 6c 2d 33 | 2d 72 65 20 28 63 6f 6e |-level-3|-re (con|
|00000dc0| 63 61 74 20 22 5c 5c 3c | 5c 5c 28 61 5c 5c 28 6c |cat "\\<|\\(a\\(l|
|00000dd0| 6c 6f 63 61 74 5c 5c 28 | 61 62 6c 65 5c 5c 7c 65 |locat\\(|able\\|e|
|00000de0| 5c 5c 29 5c 5c 7c 73 73 | 69 67 6e 5c 5c 28 5c 5c |\\)\\|ss|ign\\(\\|
|00000df0| 7c 6d 65 6e 74 5c 5c 29 | 5c 5c 29 5c 5c 7c 62 61 ||ment\\)|\\)\\|ba|
|00000e00| 63 6b 73 70 61 63 65 5c | 5c 7c 22 20 22 63 6c 6f |ckspace\|\|" "clo|
|00000e10| 73 65 5c 5c 7c 64 5c 5c | 28 65 61 6c 6c 6f 63 61 |se\\|d\\|(ealloca|
|00000e20| 74 65 5c 5c 7c 69 6d 65 | 6e 73 69 6f 6e 5c 5c 29 |te\\|ime|nsion\\)|
|00000e30| 5c 5c 7c 65 5c 5c 28 6e | 5c 5c 28 64 66 69 6c 65 |\\|e\\(n|\\(dfile|
|00000e40| 5c 5c 7c 74 72 79 5c 5c | 29 5c 5c 7c 22 20 22 71 |\\|try\\|)\\|" "q|
|00000e50| 75 69 76 61 6c 65 6e 63 | 65 5c 5c 7c 78 74 65 72 |uivalenc|e\\|xter|
|00000e60| 6e 61 6c 5c 5c 29 5c 5c | 7c 22 20 22 69 6e 5c 5c |nal\\)\\||" "in\\|
|00000e70| 28 71 75 69 72 65 5c 5c | 7c 74 5c 5c 28 65 6e 74 |(quire\\||t\\(ent|
|00000e80| 5c 5c 7c 72 69 6e 73 69 | 63 5c 5c 29 5c 5c 29 5c |\\|rinsi|c\\)\\)\|
|00000e90| 5c 7c 6e 75 6c 6c 69 66 | 79 5c 5c 7c 22 20 22 6f |\|nullif|y\\|" "o|
|00000ea0| 5c 5c 28 6e 6c 79 5c 5c | 7c 70 5c 5c 28 65 6e 5c |\\(nly\\||p\\(en\|
|00000eb0| 5c 7c 65 72 61 74 6f 72 | 5c 5c 7c 74 69 6f 6e 61 |\|erator|\\|tiona|
|00000ec0| 6c 5c 5c 29 5c 5c 29 5c | 5c 7c 22 20 22 70 5c 5c |l\\)\\)\|\|" "p\\|
|00000ed0| 28 61 5c 5c 28 72 61 6d | 65 74 65 72 5c 5c 7c 75 |(a\\(ram|eter\\|u|
|00000ee0| 73 65 5c 5c 29 5c 5c 7c | 6f 69 6e 74 65 72 5c 5c |se\\)\\||ointer\\|
|00000ef0| 7c 72 69 5c 5c 28 6e 74 | 5c 5c 7c 76 61 74 65 5c ||ri\\(nt|\\|vate\|
|00000f00| 5c 29 5c 5c 7c 75 62 6c | 69 63 5c 5c 29 5c 5c 7c |\)\\|ubl|ic\\)\\||
|00000f10| 72 65 5c 5c 28 22 20 22 | 61 64 5c 5c 7c 63 75 72 |re\\(" "|ad\\|cur|
|00000f20| 73 69 76 65 5c 5c 7c 73 | 75 6c 74 5c 5c 7c 77 69 |sive\\|s|ult\\|wi|
|00000f30| 6e 64 5c 5c 29 5c 5c 7c | 73 5c 5c 28 61 76 65 5c |nd\\)\\||s\\(ave\|
|00000f40| 5c 7c 65 5c 5c 28 6c 65 | 63 74 5c 5c 7c 71 75 65 |\|e\\(le|ct\\|que|
|00000f50| 6e 63 65 5c 5c 29 5c 5c | 29 5c 5c 7c 74 61 72 67 |nce\\)\\|)\\|targ|
|00000f60| 65 74 5c 5c 7c 22 20 22 | 77 72 69 74 65 5c 5c 29 |et\\|" "|write\\)|
|00000f70| 5c 5c 3e 22 29 20 28 23 | 24 20 2e 20 33 34 34 30 |\\>") (#|$ . 3440|
|00000f80| 29 29 0a 23 40 35 39 20 | 52 65 67 65 78 70 20 77 |)).#@59 |Regexp w|
|00000f90| 68 6f 73 65 20 66 69 72 | 73 74 20 70 61 72 74 20 |hose fir|st part |
|00000fa0| 6d 61 74 63 68 65 73 20 | 46 39 30 20 69 6e 74 72 |matches |F90 intr|
|00000fb0| 69 6e 73 69 63 20 70 72 | 6f 63 65 64 75 72 65 73 |insic pr|ocedures|
|00000fc0| 2e 1f 0a 28 64 65 66 63 | 6f 6e 73 74 20 66 39 30 |...(defc|onst f90|
|00000fd0| 2d 70 72 6f 63 65 64 75 | 72 65 73 2d 72 65 20 28 |-procedu|res-re (|
|00000fe0| 63 6f 6e 63 61 74 20 22 | 5c 5c 3c 5c 5c 28 61 5c |concat "|\\<\\(a\|
|00000ff0| 5c 28 62 73 5c 5c 7c 63 | 5c 5c 28 68 61 72 5c 5c |\(bs\\|c|\\(har\\|
|00001000| 7c 6f 73 5c 5c 29 5c 5c | 7c 64 6a 75 73 74 5b 6c ||os\\)\\||djust[l|
|00001010| 72 5d 5c 5c 7c 69 5c 5c | 28 6d 61 67 5c 5c 7c 6e |r]\\|i\\|(mag\\|n|
|00001020| 74 5c 5c 29 5c 5c 7c 6c | 6c 5c 5c 28 5c 5c 7c 22 |t\\)\\|l|l\\(\\|"|
|00001030| 20 22 6f 63 61 74 65 64 | 5c 5c 29 5c 5c 7c 6e 5c | "ocated|\\)\\|n\|
|00001040| 5c 28 69 6e 74 5c 5c 7c | 79 5c 5c 29 5c 5c 7c 73 |\(int\\||y\\)\\|s|
|00001050| 5c 5c 28 69 6e 5c 5c 7c | 73 6f 63 69 61 74 65 64 |\\(in\\||sociated|
|00001060| 5c 5c 29 5c 5c 7c 74 61 | 6e 32 3f 5c 5c 29 5c 5c |\\)\\|ta|n2?\\)\\|
|00001070| 7c 62 5c 5c 28 22 20 22 | 69 74 5f 73 69 7a 65 5c ||b\\(" "|it_size\|
|00001080| 5c 7c 74 65 73 74 5c 5c | 29 5c 5c 7c 63 5c 5c 28 |\|test\\|)\\|c\\(|
|00001090| 65 69 6c 69 6e 67 5c 5c | 7c 68 61 72 5c 5c 7c 6d |eiling\\||har\\|m|
|000010a0| 70 6c 78 5c 5c 7c 6f 5c | 5c 28 6e 6a 67 5c 5c 7c |plx\\|o\|\(njg\\||
|000010b0| 73 68 3f 5c 5c 7c 75 6e | 74 5c 5c 29 5c 5c 7c 22 |sh?\\|un|t\\)\\|"|
|000010c0| 20 22 73 68 69 66 74 5c | 5c 29 5c 5c 7c 64 5c 5c | "shift\|\)\\|d\\|
|000010d0| 28 61 74 65 5f 61 6e 64 | 5f 74 69 6d 65 5c 5c 7c |(ate_and|_time\\||
|000010e0| 62 6c 65 5c 5c 7c 69 5c | 5c 28 67 69 74 73 5c 5c |ble\\|i\|\(gits\\|
|000010f0| 7c 6d 5c 5c 29 5c 5c 7c | 6f 74 5f 70 72 6f 64 75 ||m\\)\\||ot_produ|
|00001100| 63 74 5c 5c 7c 70 72 6f | 64 22 20 22 5c 5c 29 5c |ct\\|pro|d" "\\)\|
|00001110| 5c 7c 65 5c 5c 28 6f 73 | 68 69 66 74 5c 5c 7c 70 |\|e\\(os|hift\\|p|
|00001120| 73 69 6c 6f 6e 5c 5c 7c | 78 70 5c 5c 28 5c 5c 7c |silon\\||xp\\(\\||
|00001130| 6f 6e 65 6e 74 5c 5c 29 | 5c 5c 29 5c 5c 7c 66 5c |onent\\)|\\)\\|f\|
|00001140| 5c 28 6c 6f 6f 72 5c 5c | 7c 22 20 22 72 61 63 74 |\(loor\\||" "ract|
|00001150| 69 6f 6e 5c 5c 29 5c 5c | 7c 68 75 67 65 5c 5c 7c |ion\\)\\||huge\\||
|00001160| 69 5c 5c 28 61 5c 5c 28 | 63 68 61 72 5c 5c 7c 6e |i\\(a\\(|char\\|n|
|00001170| 64 5c 5c 29 5c 5c 7c 62 | 5c 5c 28 63 6c 72 5c 5c |d\\)\\|b|\\(clr\\|
|00001180| 7c 69 74 73 5c 5c 7c 73 | 65 74 5c 5c 29 5c 5c 7c ||its\\|s|et\\)\\||
|00001190| 22 20 22 63 68 61 72 5c | 5c 7c 65 6f 72 5c 5c 7c |" "char\|\|eor\\||
|000011a0| 6e 5c 5c 28 64 65 78 5c | 5c 7c 74 5c 5c 29 5c 5c |n\\(dex\|\|t\\)\\|
|000011b0| 7c 6f 72 5c 5c 7c 73 68 | 66 74 63 3f 5c 5c 29 5c ||or\\|sh|ftc?\\)\|
|000011c0| 5c 7c 6b 69 6e 64 5c 5c | 7c 6c 5c 5c 28 62 6f 75 |\|kind\\||l\\(bou|
|000011d0| 6e 64 5c 5c 7c 22 20 22 | 65 6e 5c 5c 28 5c 5c 7c |nd\\|" "|en\\(\\||
|000011e0| 5f 74 72 69 6d 5c 5c 29 | 5c 5c 7c 67 5b 65 74 5d |_trim\\)|\\|g[et]|
|000011f0| 5c 5c 7c 6c 5b 65 74 5d | 5c 5c 7c 6f 67 5c 5c 28 |\\|l[et]|\\|og\\(|
|00001200| 5c 5c 7c 31 30 5c 5c 7c | 69 63 61 6c 5c 5c 29 5c |\\|10\\||ical\\)\|
|00001210| 5c 29 5c 5c 7c 6d 5c 5c | 28 61 5c 5c 28 22 20 22 |\)\\|m\\|(a\\(" "|
|00001220| 74 6d 75 6c 5c 5c 7c 78 | 5c 5c 28 5c 5c 7c 65 78 |tmul\\|x|\\(\\|ex|
|00001230| 70 6f 6e 65 6e 74 5c 5c | 7c 6c 6f 63 5c 5c 7c 76 |ponent\\||loc\\|v|
|00001240| 61 6c 5c 5c 29 5c 5c 29 | 5c 5c 7c 65 72 67 65 5c |al\\)\\)|\\|erge\|
|00001250| 5c 7c 69 6e 5c 5c 28 5c | 5c 7c 65 78 70 6f 6e 65 |\|in\\(\|\|expone|
|00001260| 6e 74 5c 5c 7c 22 20 22 | 6c 6f 63 5c 5c 7c 76 61 |nt\\|" "|loc\\|va|
|00001270| 6c 5c 5c 29 5c 5c 7c 6f | 64 5c 5c 28 5c 5c 7c 75 |l\\)\\|o|d\\(\\|u|
|00001280| 6c 6f 5c 5c 29 5c 5c 7c | 76 62 69 74 73 5c 5c 29 |lo\\)\\||vbits\\)|
|00001290| 5c 5c 7c 6e 5c 5c 28 65 | 61 72 65 73 74 5c 5c 7c |\\|n\\(e|arest\\||
|000012a0| 69 6e 74 5c 5c 7c 6f 74 | 5c 5c 29 5c 5c 7c 22 20 |int\\|ot|\\)\\|" |
|000012b0| 22 70 5c 5c 28 61 63 6b | 5c 5c 7c 72 5c 5c 28 65 |"p\\(ack|\\|r\\(e|
|000012c0| 5c 5c 28 63 69 73 69 6f | 6e 5c 5c 7c 73 65 6e 74 |\\(cisio|n\\|sent|
|000012d0| 5c 5c 29 5c 5c 7c 6f 64 | 75 63 74 5c 5c 29 5c 5c |\\)\\|od|uct\\)\\|
|000012e0| 29 5c 5c 7c 72 5c 5c 28 | 61 5c 5c 28 64 69 78 5c |)\\|r\\(|a\\(dix\|
|000012f0| 5c 7c 6e 5c 5c 28 22 20 | 22 64 6f 6d 5f 5c 5c 28 |\|n\\(" |"dom_\\(|
|00001300| 6e 75 6d 62 65 72 5c 5c | 7c 73 65 65 64 5c 5c 29 |number\\||seed\\)|
|00001310| 5c 5c 7c 67 65 5c 5c 29 | 5c 5c 29 5c 5c 7c 65 5c |\\|ge\\)|\\)\\|e\|
|00001320| 5c 28 70 65 61 74 5c 5c | 7c 73 68 61 70 65 5c 5c |\(peat\\||shape\\|
|00001330| 29 5c 5c 7c 72 73 70 61 | 63 69 6e 67 5c 5c 29 5c |)\\|rspa|cing\\)\|
|00001340| 5c 7c 22 20 22 73 5c 5c | 28 63 61 5c 5c 28 6c 65 |\|" "s\\|(ca\\(le|
|00001350| 5c 5c 7c 6e 5c 5c 29 5c | 5c 7c 65 5c 5c 28 6c 65 |\\|n\\)\|\|e\\(le|
|00001360| 63 74 65 64 5f 5c 5c 28 | 69 6e 74 5f 6b 69 6e 64 |cted_\\(|int_kind|
|00001370| 5c 5c 7c 72 65 61 6c 5f | 6b 69 6e 64 5c 5c 29 5c |\\|real_|kind\\)\|
|00001380| 5c 7c 22 20 22 74 5f 65 | 78 70 6f 6e 65 6e 74 5c |\|" "t_e|xponent\|
|00001390| 5c 29 5c 5c 7c 68 61 70 | 65 5c 5c 7c 69 5c 5c 28 |\)\\|hap|e\\|i\\(|
|000013a0| 67 6e 5c 5c 7c 6e 68 3f | 5c 5c 7c 7a 65 5c 5c 29 |gn\\|nh?|\\|ze\\)|
|000013b0| 5c 5c 7c 70 5c 5c 28 61 | 63 69 6e 67 5c 5c 7c 72 |\\|p\\(a|cing\\|r|
|000013c0| 65 61 64 5c 5c 29 5c 5c | 7c 22 20 22 71 72 74 5c |ead\\)\\||" "qrt\|
|000013d0| 5c 7c 75 6d 5c 5c 7c 79 | 73 74 65 6d 5f 63 6c 6f |\|um\\|y|stem_clo|
|000013e0| 63 6b 5c 5c 29 5c 5c 7c | 74 5c 5c 28 61 6e 68 3f |ck\\)\\||t\\(anh?|
|000013f0| 5c 5c 7c 69 6e 79 5c 5c | 7c 72 5c 5c 28 61 6e 73 |\\|iny\\||r\\(ans|
|00001400| 5c 5c 28 66 65 72 5c 5c | 7c 70 6f 73 65 5c 5c 29 |\\(fer\\||pose\\)|
|00001410| 5c 5c 7c 22 20 22 69 6d | 5c 5c 29 5c 5c 29 5c 5c |\\|" "im|\\)\\)\\|
|00001420| 7c 75 5c 5c 28 62 6f 75 | 6e 64 5c 5c 7c 6e 70 61 ||u\\(bou|nd\\|npa|
|00001430| 63 6b 5c 5c 29 5c 5c 7c | 76 65 72 69 66 79 5c 5c |ck\\)\\||verify\\|
|00001440| 29 5b 20 09 5d 2a 28 22 | 29 20 28 23 24 20 2e 20 |)[ .]*("|) (#$ . |
|00001450| 33 39 37 36 29 29 0a 23 | 40 33 38 20 52 65 67 65 |3976)).#|@38 Rege|
|00001460| 78 70 20 6d 61 74 63 68 | 69 6e 67 20 69 6e 74 72 |xp match|ing intr|
|00001470| 69 6e 73 69 63 20 6f 70 | 65 72 61 74 6f 72 73 2e |insic op|erators.|
|00001480| 1f 0a 28 64 65 66 63 6f | 6e 73 74 20 66 39 30 2d |..(defco|nst f90-|
|00001490| 6f 70 65 72 61 74 6f 72 | 73 2d 72 65 20 28 63 6f |operator|s-re (co|
|000014a0| 6e 63 61 74 20 22 5c 5c | 2e 5c 5c 28 61 6e 64 5c |ncat "\\|.\\(and\|
|000014b0| 5c 7c 65 71 76 3f 5c 5c | 7c 66 61 6c 73 65 5c 5c |\|eqv?\\||false\\|
|000014c0| 7c 67 5b 65 74 5d 5c 5c | 7c 6c 5b 65 74 5d 5c 5c ||g[et]\\||l[et]\\|
|000014d0| 7c 6e 5c 5c 28 65 5c 5c | 28 5c 5c 7c 71 76 5c 5c ||n\\(e\\|(\\|qv\\|
|000014e0| 29 5c 5c 7c 22 20 22 6f | 74 5c 5c 29 5c 5c 7c 6f |)\\|" "o|t\\)\\|o|
|000014f0| 72 5c 5c 7c 74 72 75 65 | 5c 5c 29 5c 5c 2e 22 29 |r\\|true|\\)\\.")|
|00001500| 20 28 23 24 20 2e 20 35 | 32 31 32 29 29 0a 23 40 | (#$ . 5|212)).#@|
|00001510| 35 37 20 52 65 67 65 78 | 70 20 66 6f 72 20 61 6c |57 Regex|p for al|
|00001520| 6c 20 48 50 46 20 6b 65 | 79 77 6f 72 64 73 2c 20 |l HPF ke|ywords, |
|00001530| 70 72 6f 63 65 64 75 72 | 65 73 20 61 6e 64 20 64 |procedur|es and d|
|00001540| 69 72 65 63 74 69 76 65 | 73 2e 1f 0a 28 64 65 66 |irective|s...(def|
|00001550| 63 6f 6e 73 74 20 66 39 | 30 2d 68 70 66 2d 6b 65 |const f9|0-hpf-ke|
|00001560| 79 77 6f 72 64 73 2d 72 | 65 20 28 63 6f 6e 63 61 |ywords-r|e (conca|
|00001570| 74 20 22 5c 5c 3c 5c 5c | 28 61 5c 5c 28 6c 5c 5c |t "\\<\\|(a\\(l\\|
|00001580| 28 69 67 6e 5c 5c 7c 6c | 5f 5c 5c 28 70 72 65 66 |(ign\\|l|_\\(pref|
|00001590| 69 78 5c 5c 7c 73 5c 5c | 28 63 61 74 74 65 72 5c |ix\\|s\\|(catter\|
|000015a0| 5c 7c 75 66 66 69 78 5c | 5c 29 5c 5c 29 5c 5c 29 |\|uffix\|\)\\)\\)|
|000015b0| 5c 5c 7c 6e 79 5f 5c 5c | 28 22 20 22 70 72 65 66 |\\|ny_\\|(" "pref|
|000015c0| 69 78 5c 5c 7c 73 5c 5c | 28 63 61 74 74 65 72 5c |ix\\|s\\|(catter\|
|000015d0| 5c 7c 75 66 66 69 78 5c | 5c 29 5c 5c 29 5c 5c 29 |\|uffix\|\)\\)\\)|
|000015e0| 5c 5c 7c 62 6c 6f 63 6b | 5c 5c 7c 63 5c 5c 28 6f |\\|block|\\|c\\(o|
|000015f0| 5c 5c 28 70 79 5f 5c 5c | 28 70 72 65 66 69 78 5c |\\(py_\\|(prefix\|
|00001600| 5c 7c 22 20 22 73 5c 5c | 28 63 61 74 74 65 72 5c |\|" "s\\|(catter\|
|00001610| 5c 7c 75 66 66 69 78 5c | 5c 29 5c 5c 29 5c 5c 7c |\|uffix\|\)\\)\\||
|00001620| 75 6e 74 5f 5c 5c 28 70 | 72 65 66 69 78 5c 5c 7c |unt_\\(p|refix\\||
|00001630| 73 5c 5c 28 63 61 74 74 | 65 72 5c 5c 7c 75 66 66 |s\\(catt|er\\|uff|
|00001640| 69 78 5c 5c 29 5c 5c 29 | 5c 5c 29 5c 5c 7c 22 20 |ix\\)\\)|\\)\\|" |
|00001650| 22 79 63 6c 69 63 5c 5c | 29 5c 5c 7c 64 5c 5c 28 |"yclic\\|)\\|d\\(|
|00001660| 69 73 74 72 69 62 75 74 | 65 5c 5c 7c 79 6e 61 6d |istribut|e\\|ynam|
|00001670| 69 63 5c 5c 29 5c 5c 7c | 65 78 74 72 69 6e 73 69 |ic\\)\\||extrinsi|
|00001680| 63 5c 5c 7c 67 72 61 64 | 65 5f 5c 5c 28 64 6f 77 |c\\|grad|e_\\(dow|
|00001690| 6e 5c 5c 7c 22 20 22 75 | 70 5c 5c 29 5c 5c 7c 68 |n\\|" "u|p\\)\\|h|
|000016a0| 70 66 5f 5c 5c 28 61 6c | 69 67 6e 6d 65 6e 74 5c |pf_\\(al|ignment\|
|000016b0| 5c 7c 64 69 73 74 72 69 | 62 75 74 69 6f 6e 5c 5c |\|distri|bution\\|
|000016c0| 7c 74 65 6d 70 6c 61 74 | 65 5c 5c 29 5c 5c 7c 69 ||templat|e\\)\\|i|
|000016d0| 5c 5c 28 61 5c 5c 28 6c | 6c 5c 5c 28 5c 5c 7c 22 |\\(a\\(l|l\\(\\|"|
|000016e0| 20 22 5f 5c 5c 28 70 72 | 65 66 69 78 5c 5c 7c 73 | "_\\(pr|efix\\|s|
|000016f0| 5c 5c 28 63 61 74 74 65 | 72 5c 5c 7c 75 66 66 69 |\\(catte|r\\|uffi|
|00001700| 78 5c 5c 29 5c 5c 29 5c | 5c 29 5c 5c 7c 6e 79 5c |x\\)\\)\|\)\\|ny\|
|00001710| 5c 28 5c 5c 7c 5f 5c 5c | 28 70 72 65 66 69 78 5c |\(\\|_\\|(prefix\|
|00001720| 5c 7c 73 5c 5c 28 22 20 | 22 63 61 74 74 65 72 5c |\|s\\(" |"catter\|
|00001730| 5c 7c 75 66 66 69 78 5c | 5c 29 5c 5c 29 5c 5c 29 |\|uffix\|\)\\)\\)|
|00001740| 5c 5c 29 5c 5c 7c 6c 65 | 6e 5c 5c 7c 6e 5c 5c 28 |\\)\\|le|n\\|n\\(|
|00001750| 64 65 70 65 6e 64 65 6e | 74 5c 5c 7c 68 65 72 69 |dependen|t\\|heri|
|00001760| 74 5c 5c 29 5c 5c 7c 70 | 61 72 69 74 79 5c 5c 28 |t\\)\\|p|arity\\(|
|00001770| 5c 5c 7c 22 20 22 5f 5c | 5c 28 70 72 65 66 69 78 |\\|" "_\|\(prefix|
|00001780| 5c 5c 7c 73 5c 5c 28 63 | 61 74 74 65 72 5c 5c 7c |\\|s\\(c|atter\\||
|00001790| 75 66 66 69 78 5c 5c 29 | 5c 5c 29 5c 5c 29 5c 5c |uffix\\)|\\)\\)\\|
|000017a0| 29 5c 5c 7c 6c 65 61 64 | 7a 5c 5c 7c 6d 5c 5c 28 |)\\|lead|z\\|m\\(|
|000017b0| 61 78 76 61 6c 5f 5c 5c | 28 22 20 22 70 72 65 66 |axval_\\|(" "pref|
|000017c0| 69 78 5c 5c 7c 73 5c 5c | 28 63 61 74 74 65 72 5c |ix\\|s\\|(catter\|
|000017d0| 5c 7c 75 66 66 69 78 5c | 5c 29 5c 5c 29 5c 5c 7c |\|uffix\|\)\\)\\||
|000017e0| 69 6e 76 61 6c 5f 5c 5c | 28 70 72 65 66 69 78 5c |inval_\\|(prefix\|
|000017f0| 5c 7c 73 5c 5c 28 63 61 | 74 74 65 72 5c 5c 7c 22 |\|s\\(ca|tter\\|"|
|00001800| 20 22 75 66 66 69 78 5c | 5c 29 5c 5c 29 5c 5c 29 | "uffix\|\)\\)\\)|
|00001810| 5c 5c 7c 6e 5c 5c 28 65 | 77 5c 5c 7c 75 6d 62 65 |\\|n\\(e|w\\|umbe|
|00001820| 72 5f 6f 66 5f 70 72 6f | 63 65 73 73 6f 72 73 5c |r_of_pro|cessors\|
|00001830| 5c 29 5c 5c 7c 6f 6e 74 | 6f 5c 5c 7c 70 5c 5c 28 |\)\\|ont|o\\|p\\(|
|00001840| 61 72 69 74 79 5c 5c 28 | 5c 5c 7c 22 20 22 5f 5c |arity\\(|\\|" "_\|
|00001850| 5c 28 70 72 65 66 69 78 | 5c 5c 7c 73 5c 5c 28 63 |\(prefix|\\|s\\(c|
|00001860| 61 74 74 65 72 5c 5c 7c | 75 66 66 69 78 5c 5c 29 |atter\\||uffix\\)|
|00001870| 5c 5c 29 5c 5c 29 5c 5c | 7c 6f 70 5c 5c 28 63 6e |\\)\\)\\||op\\(cn|
|00001880| 74 5c 5c 7c 70 61 72 5c | 5c 29 5c 5c 7c 72 6f 5c |t\\|par\|\)\\|ro\|
|00001890| 5c 28 22 20 22 63 65 73 | 73 6f 72 73 5c 5c 28 5c |\(" "ces|sors\\(\|
|000018a0| 5c 7c 5f 73 68 61 70 65 | 5c 5c 29 5c 5c 7c 64 75 |\|_shape|\\)\\|du|
|000018b0| 63 74 5f 5c 5c 28 70 72 | 65 66 69 78 5c 5c 7c 73 |ct_\\(pr|efix\\|s|
|000018c0| 5c 5c 28 63 61 74 74 65 | 72 5c 5c 7c 75 66 66 69 |\\(catte|r\\|uffi|
|000018d0| 78 5c 5c 29 5c 5c 29 5c | 5c 29 5c 5c 7c 22 20 22 |x\\)\\)\|\)\\|" "|
|000018e0| 75 72 65 5c 5c 29 5c 5c | 7c 72 65 5c 5c 28 61 6c |ure\\)\\||re\\(al|
|000018f0| 69 67 6e 5c 5c 7c 64 69 | 73 74 72 69 62 75 74 65 |ign\\|di|stribute|
|00001900| 5c 5c 29 5c 5c 7c 73 75 | 6d 5f 5c 5c 28 70 72 65 |\\)\\|su|m_\\(pre|
|00001910| 66 69 78 5c 5c 7c 73 5c | 5c 28 63 61 74 74 65 72 |fix\\|s\|\(catter|
|00001920| 5c 5c 7c 22 20 22 75 66 | 66 69 78 5c 5c 29 5c 5c |\\|" "uf|fix\\)\\|
|00001930| 29 5c 5c 7c 74 65 6d 70 | 6c 61 74 65 5c 5c 7c 77 |)\\|temp|late\\|w|
|00001940| 69 74 68 5c 5c 29 5c 5c | 3e 22 29 20 28 23 24 20 |ith\\)\\|>") (#$ |
|00001950| 2e 20 35 33 39 35 29 29 | 0a 23 40 37 31 20 54 68 |. 5395))|.#@71 Th|
|00001960| 69 73 20 64 6f 65 73 20 | 66 61 69 72 6c 79 20 73 |is does |fairly s|
|00001970| 75 62 64 75 65 64 20 68 | 69 67 68 6c 69 67 68 74 |ubdued h|ighlight|
|00001980| 69 6e 67 20 6f 66 20 63 | 6f 6d 6d 65 6e 74 73 20 |ing of c|omments |
|00001990| 61 6e 64 20 66 75 6e 63 | 74 69 6f 6e 20 63 61 6c |and func|tion cal|
|000019a0| 6c 73 2e 1f 0a 28 64 65 | 66 76 61 72 20 66 39 30 |ls...(de|fvar f90|
|000019b0| 2d 66 6f 6e 74 2d 6c 6f | 63 6b 2d 6b 65 79 77 6f |-font-lo|ck-keywo|
|000019c0| 72 64 73 2d 31 20 28 62 | 79 74 65 2d 63 6f 64 65 |rds-1 (b|yte-code|
|000019d0| 20 22 c0 c1 5c 6e 5c 22 | 83 12 00 c3 c4 c5 c6 c7 | "..\n\"|........|
|000019e0| c8 c9 ca af 08 87 cb cc | cd ce ca af 05 87 22 20 |........|......" |
|000019f0| 5b 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 22 58 |[string-|match "X|
|00001a00| 45 6d 61 63 73 22 20 65 | 6d 61 63 73 2d 76 65 72 |Emacs" e|macs-ver|
|00001a10| 73 69 6f 6e 20 28 22 5c | 5c 3c 5c 5c 28 65 6e 64 |sion ("\|\<\\(end|
|00001a20| 5b 20 09 5d 2a 5c 5c 28 | 70 72 6f 67 72 61 6d 5c |[ .]*\\(|program\|
|00001a30| 5c 7c 6d 6f 64 75 6c 65 | 5c 5c 7c 66 75 6e 63 74 |\|module|\\|funct|
|00001a40| 69 6f 6e 5c 5c 7c 73 75 | 62 72 6f 75 74 69 6e 65 |ion\\|su|broutine|
|00001a50| 5c 5c 7c 74 79 70 65 5c | 5c 29 5c 5c 29 5c 5c 3e |\\|type\|\)\\)\\>|
|00001a60| 22 20 31 20 66 6f 6e 74 | 2d 6c 6f 63 6b 2d 6b 65 |" 1 font|-lock-ke|
|00001a70| 79 77 6f 72 64 2d 66 61 | 63 65 29 20 28 22 5c 5c |yword-fa|ce) ("\\|
|00001a80| 3c 5c 5c 28 65 6e 64 5b | 20 09 5d 2a 5c 5c 28 70 |<\\(end[| .]*\\(p|
|00001a90| 72 6f 67 72 61 6d 5c 5c | 7c 6d 6f 64 75 6c 65 5c |rogram\\||module\|
|00001aa0| 5c 7c 66 75 6e 63 74 69 | 6f 6e 5c 5c 7c 73 75 62 |\|functi|on\\|sub|
|00001ab0| 72 6f 75 74 69 6e 65 5c | 5c 7c 74 79 70 65 5c 5c |routine\|\|type\\|
|00001ac0| 29 5c 5c 29 5c 5c 3e 5b | 20 09 5d 2a 5c 5c 28 5c |)\\)\\>[| .]*\\(\|
|00001ad0| 5c 73 77 2b 5c 5c 29 22 | 20 33 20 66 6f 6e 74 2d |\sw+\\)"| 3 font-|
|00001ae0| 6c 6f 63 6b 2d 66 75 6e | 63 74 69 6f 6e 2d 6e 61 |lock-fun|ction-na|
|00001af0| 6d 65 2d 66 61 63 65 29 | 20 28 22 5c 5c 3c 5c 5c |me-face)| ("\\<\\|
|00001b00| 28 70 72 6f 67 72 61 6d | 5c 5c 7c 63 61 6c 6c 5c |(program|\\|call\|
|00001b10| 5c 7c 6d 6f 64 75 6c 65 | 5c 5c 7c 73 75 62 72 6f |\|module|\\|subro|
|00001b20| 75 74 69 6e 65 5c 5c 7c | 66 75 6e 63 74 69 6f 6e |utine\\||function|
|00001b30| 5c 5c 7c 75 73 65 5c 5c | 29 5c 5c 3e 22 20 31 20 |\\|use\\|)\\>" 1 |
|00001b40| 66 6f 6e 74 2d 6c 6f 63 | 6b 2d 6b 65 79 77 6f 72 |font-loc|k-keywor|
|00001b50| 64 2d 66 61 63 65 29 20 | 28 22 5c 5c 3c 5c 5c 28 |d-face) |("\\<\\(|
|00001b60| 70 72 6f 67 72 61 6d 5c | 5c 7c 63 61 6c 6c 5c 5c |program\|\|call\\|
|00001b70| 7c 6d 6f 64 75 6c 65 5c | 5c 7c 73 75 62 72 6f 75 ||module\|\|subrou|
|00001b80| 74 69 6e 65 5c 5c 7c 66 | 75 6e 63 74 69 6f 6e 5c |tine\\|f|unction\|
|00001b90| 5c 7c 75 73 65 5c 5c 29 | 5c 5c 3e 5b 20 09 5d 2a |\|use\\)|\\>[ .]*|
|00001ba0| 5c 5c 28 5c 5c 73 77 2b | 5c 5c 29 22 20 32 20 66 |\\(\\sw+|\\)" 2 f|
|00001bb0| 6f 6e 74 2d 6c 6f 63 6b | 2d 66 75 6e 63 74 69 6f |ont-lock|-functio|
|00001bc0| 6e 2d 6e 61 6d 65 2d 66 | 61 63 65 20 6e 69 6c 20 |n-name-f|ace nil |
|00001bd0| 74 29 20 28 22 5c 5c 3c | 5c 5c 28 6d 6f 64 75 6c |t) ("\\<|\\(modul|
|00001be0| 65 5b 20 09 5d 2a 70 72 | 6f 63 65 64 75 72 65 5c |e[ .]*pr|ocedure\|
|00001bf0| 5c 29 5c 5c 3e 22 20 31 | 20 66 6f 6e 74 2d 6c 6f |\)\\>" 1| font-lo|
|00001c00| 63 6b 2d 6b 65 79 77 6f | 72 64 2d 66 61 63 65 20 |ck-keywo|rd-face |
|00001c10| 74 29 20 28 22 5c 5c 3c | 5c 5c 28 74 79 70 65 5c |t) ("\\<|\\(type\|
|00001c20| 5c 29 5b 20 09 5d 2a 5c | 5c 28 2c 2e 2a 3a 3a 5b |\)[ .]*\|\(,.*::[|
|00001c30| 20 09 5d 2a 5c 5c 7c 5b | 20 09 5d 2b 5c 5c 29 5c | .]*\\|[| .]+\\)\|
|00001c40| 5c 28 5c 5c 73 77 2b 5c | 5c 29 22 20 31 20 66 6f |\(\\sw+\|\)" 1 fo|
|00001c50| 6e 74 2d 6c 6f 63 6b 2d | 6b 65 79 77 6f 72 64 2d |nt-lock-|keyword-|
|00001c60| 66 61 63 65 29 20 28 22 | 5c 5c 3c 5c 5c 28 74 79 |face) ("|\\<\\(ty|
|00001c70| 70 65 5c 5c 29 5b 20 09 | 5d 2a 5c 5c 28 2c 2e 2a |pe\\)[ .|]*\\(,.*|
|00001c80| 3a 3a 5b 20 09 5d 2a 5c | 5c 7c 5b 20 09 5d 2b 5c |::[ .]*\|\|[ .]+\|
|00001c90| 5c 29 5c 5c 28 5c 5c 73 | 77 2b 5c 5c 29 22 20 33 |\)\\(\\s|w+\\)" 3|
|00001ca0| 20 66 6f 6e 74 2d 6c 6f | 63 6b 2d 66 75 6e 63 74 | font-lo|ck-funct|
|00001cb0| 69 6f 6e 2d 6e 61 6d 65 | 2d 66 61 63 65 29 20 22 |ion-name|-face) "|
|00001cc0| 5c 5c 3c 5c 5c 28 5c 5c | 28 65 6e 64 5b 20 09 5d |\\<\\(\\|(end[ .]|
|00001cd0| 2a 5c 5c 29 3f 5c 5c 28 | 69 6e 74 65 72 66 61 63 |*\\)?\\(|interfac|
|00001ce0| 65 5c 5c 7c 62 6c 6f 63 | 6b 5b 20 09 5d 2a 64 61 |e\\|bloc|k[ .]*da|
|00001cf0| 74 61 5c 5c 29 5c 5c 7c | 63 6f 6e 74 61 69 6e 73 |ta\\)\\||contains|
|00001d00| 5c 5c 29 5c 5c 3e 22 20 | 28 22 5c 5c 3c 5c 5c 28 |\\)\\>" |("\\<\\(|
|00001d10| 65 6e 64 5b 20 09 5d 2a | 5c 5c 28 70 72 6f 67 72 |end[ .]*|\\(progr|
|00001d20| 61 6d 5c 5c 7c 6d 6f 64 | 75 6c 65 5c 5c 7c 66 75 |am\\|mod|ule\\|fu|
|00001d30| 6e 63 74 69 6f 6e 5c 5c | 7c 73 75 62 72 6f 75 74 |nction\\||subrout|
|00001d40| 69 6e 65 5c 5c 7c 74 79 | 70 65 5c 5c 29 5c 5c 29 |ine\\|ty|pe\\)\\)|
|00001d50| 5c 5c 3e 5b 20 09 5d 2a | 5c 5c 28 5c 5c 73 77 2b |\\>[ .]*|\\(\\sw+|
|00001d60| 5c 5c 29 3f 22 20 28 31 | 20 66 6f 6e 74 2d 6c 6f |\\)?" (1| font-lo|
|00001d70| 63 6b 2d 6b 65 79 77 6f | 72 64 2d 66 61 63 65 29 |ck-keywo|rd-face)|
|00001d80| 20 28 33 20 66 6f 6e 74 | 2d 6c 6f 63 6b 2d 66 75 | (3 font|-lock-fu|
|00001d90| 6e 63 74 69 6f 6e 2d 6e | 61 6d 65 2d 66 61 63 65 |nction-n|ame-face|
|00001da0| 20 6e 69 6c 20 74 29 29 | 20 28 22 5c 5c 3c 5c 5c | nil t))| ("\\<\\|
|00001db0| 28 70 72 6f 67 72 61 6d | 5c 5c 7c 63 61 6c 6c 5c |(program|\\|call\|
|00001dc0| 5c 7c 6d 6f 64 75 6c 65 | 5c 5c 7c 73 75 62 72 6f |\|module|\\|subro|
|00001dd0| 75 74 69 6e 65 5c 5c 7c | 66 75 6e 63 74 69 6f 6e |utine\\||function|
|00001de0| 5c 5c 7c 75 73 65 5c 5c | 29 5c 5c 3e 5b 20 09 5d |\\|use\\|)\\>[ .]|
|00001df0| 2a 5c 5c 28 5c 5c 73 77 | 2b 5c 5c 29 3f 22 20 28 |*\\(\\sw|+\\)?" (|
|00001e00| 31 20 66 6f 6e 74 2d 6c | 6f 63 6b 2d 6b 65 79 77 |1 font-l|ock-keyw|
|00001e10| 6f 72 64 2d 66 61 63 65 | 29 20 28 32 20 66 6f 6e |ord-face|) (2 fon|
|00001e20| 74 2d 6c 6f 63 6b 2d 66 | 75 6e 63 74 69 6f 6e 2d |t-lock-f|unction-|
|00001e30| 6e 61 6d 65 2d 66 61 63 | 65 20 6e 69 6c 20 74 29 |name-fac|e nil t)|
|00001e40| 29 20 28 22 5c 5c 3c 5c | 5c 28 6d 6f 64 75 6c 65 |) ("\\<\|\(module|
|00001e50| 5b 20 09 5d 2a 70 72 6f | 63 65 64 75 72 65 5c 5c |[ .]*pro|cedure\\|
|00001e60| 29 5c 5c 3e 22 20 28 31 | 20 66 6f 6e 74 2d 6c 6f |)\\>" (1| font-lo|
|00001e70| 63 6b 2d 6b 65 79 77 6f | 72 64 2d 66 61 63 65 20 |ck-keywo|rd-face |
|00001e80| 74 29 29 20 28 22 5c 5c | 3c 5c 5c 28 74 79 70 65 |t)) ("\\|<\\(type|
|00001e90| 5c 5c 29 5b 20 09 5d 2a | 5c 5c 28 2c 2e 2a 3a 3a |\\)[ .]*|\\(,.*::|
|00001ea0| 5b 20 09 5d 2a 5c 5c 7c | 5b 20 09 5d 2b 5c 5c 29 |[ .]*\\||[ .]+\\)|
|00001eb0| 5c 5c 28 5c 5c 73 77 2b | 5c 5c 29 22 20 28 31 20 |\\(\\sw+|\\)" (1 |
|00001ec0| 66 6f 6e 74 2d 6c 6f 63 | 6b 2d 6b 65 79 77 6f 72 |font-loc|k-keywor|
|00001ed0| 64 2d 66 61 63 65 29 20 | 28 33 20 66 6f 6e 74 2d |d-face) |(3 font-|
|00001ee0| 6c 6f 63 6b 2d 66 75 6e | 63 74 69 6f 6e 2d 6e 61 |lock-fun|ction-na|
|00001ef0| 6d 65 2d 66 61 63 65 29 | 29 5d 20 38 29 20 28 23 |me-face)|)] 8) (#|
|00001f00| 24 20 2e 20 36 34 39 34 | 29 29 0a 23 40 35 39 20 |$ . 6494|)).#@59 |
|00001f10| 48 69 67 68 6c 69 67 68 | 74 73 20 64 65 63 6c 61 |Highligh|ts decla|
|00001f20| 72 61 74 69 6f 6e 73 2c | 20 64 6f 2d 6c 6f 6f 70 |rations,| do-loop|
|00001f30| 73 20 61 6e 64 20 6f 74 | 68 65 72 20 63 6f 6e 73 |s and ot|her cons|
|00001f40| 74 72 75 63 74 69 6f 6e | 73 1f 0a 28 64 65 66 76 |truction|s..(defv|
|00001f50| 61 72 20 66 39 30 2d 66 | 6f 6e 74 2d 6c 6f 63 6b |ar f90-f|ont-lock|
|00001f60| 2d 6b 65 79 77 6f 72 64 | 73 2d 32 20 28 62 79 74 |-keyword|s-2 (byt|
|00001f70| 65 2d 63 6f 64 65 20 22 | c0 09 c2 c3 5c 66 5c 22 |e-code "|....\f\"|
|00001f80| 83 21 00 c5 c6 c7 c8 c9 | ca cb cc cd ce cf d0 d1 |.!......|........|
|00001f90| d2 d3 d4 d5 d6 d7 af 13 | 82 2f 00 d8 d9 da db dc |........|./......|
|00001fa0| dd d0 d1 de df e0 e1 af | 5c 66 5c 22 87 22 20 5b |........|\f\"." [|
|00001fb0| 61 70 70 65 6e 64 20 66 | 39 30 2d 66 6f 6e 74 2d |append f|90-font-|
|00001fc0| 6c 6f 63 6b 2d 6b 65 79 | 77 6f 72 64 73 2d 31 20 |lock-key|words-1 |
|00001fd0| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 22 58 45 |string-m|atch "XE|
|00001fe0| 6d 61 63 73 22 20 65 6d | 61 63 73 2d 76 65 72 73 |macs" em|acs-vers|
|00001ff0| 69 6f 6e 20 28 22 5e 5b | 20 09 30 2d 39 5d 2a 5c |ion ("^[| .0-9]*\|
|00002000| 5c 28 72 65 61 6c 5c 5c | 7c 69 6e 74 65 67 65 72 |\(real\\||integer|
|00002010| 5c 5c 7c 63 5c 5c 28 68 | 61 72 61 63 74 65 72 5c |\\|c\\(h|aracter\|
|00002020| 5c 7c 6f 6d 70 6c 65 78 | 5c 5c 29 5c 5c 7c 6c 6f |\|omplex|\\)\\|lo|
|00002030| 67 69 63 61 6c 5c 5c 7c | 74 79 70 65 5b 20 09 5d |gical\\||type[ .]|
|00002040| 2a 28 5c 5c 73 77 2b 29 | 5c 5c 29 22 20 31 20 66 |*(\\sw+)|\\)" 1 f|
|00002050| 6f 6e 74 2d 6c 6f 63 6b | 2d 74 79 70 65 2d 66 61 |ont-lock|-type-fa|
|00002060| 63 65 29 20 28 22 5e 5b | 20 09 30 2d 39 5d 2a 5c |ce) ("^[| .0-9]*\|
|00002070| 5c 28 72 65 61 6c 5c 5c | 7c 69 6e 74 65 67 65 72 |\(real\\||integer|
|00002080| 5c 5c 7c 63 5c 5c 28 68 | 61 72 61 63 74 65 72 5c |\\|c\\(h|aracter\|
|00002090| 5c 7c 6f 6d 70 6c 65 78 | 5c 5c 29 5c 5c 7c 6c 6f |\|omplex|\\)\\|lo|
|000020a0| 67 69 63 61 6c 5c 5c 7c | 74 79 70 65 5b 20 09 5d |gical\\||type[ .]|
|000020b0| 2a 28 5c 5c 73 77 2b 29 | 5c 5c 29 5c 5c 28 2e 2a |*(\\sw+)|\\)\\(.*|
|000020c0| 3a 3a 5c 5c 7c 5b 20 09 | 5d 2a 28 2e 2a 29 5c 5c |::\\|[ .|]*(.*)\\|
|000020d0| 29 3f 5c 5c 28 2e 2a 5c | 5c 29 22 20 34 20 66 6f |)?\\(.*\|\)" 4 fo|
|000020e0| 6e 74 2d 6c 6f 63 6b 2d | 64 6f 63 2d 73 74 72 69 |nt-lock-|doc-stri|
|000020f0| 6e 67 2d 66 61 63 65 29 | 20 28 22 5c 5c 3c 5c 5c |ng-face)| ("\\<\\|
|00002100| 28 65 6e 64 5b 20 09 5d | 2a 5c 5c 28 64 6f 5c 5c |(end[ .]|*\\(do\\|
|00002110| 7c 69 66 5c 5c 7c 73 65 | 6c 65 63 74 5c 5c 29 5c ||if\\|se|lect\\)\|
|00002120| 5c 29 5c 5c 3e 22 20 31 | 20 66 6f 6e 74 2d 6c 6f |\)\\>" 1| font-lo|
|00002130| 63 6b 2d 6b 65 79 77 6f | 72 64 2d 66 61 63 65 29 |ck-keywo|rd-face)|
|00002140| 20 28 22 5c 5c 3c 5c 5c | 28 65 6e 64 5b 20 09 5d | ("\\<\\|(end[ .]|
|00002150| 2a 5c 5c 28 64 6f 5c 5c | 7c 69 66 5c 5c 7c 73 65 |*\\(do\\||if\\|se|
|00002160| 6c 65 63 74 5c 5c 29 5c | 5c 29 5c 5c 3e 5c 5c 28 |lect\\)\|\)\\>\\(|
|00002170| 5b 20 09 5d 2b 5c 5c 28 | 5c 5c 73 77 2b 5c 5c 29 |[ .]+\\(|\\sw+\\)|
|00002180| 5c 5c 29 22 20 33 20 66 | 6f 6e 74 2d 6c 6f 63 6b |\\)" 3 f|ont-lock|
|00002190| 2d 64 6f 63 2d 73 74 72 | 69 6e 67 2d 66 61 63 65 |-doc-str|ing-face|
|000021a0| 29 20 28 22 5e 5b 20 09 | 30 2d 39 5d 2a 5c 5c 28 |) ("^[ .|0-9]*\\(|
|000021b0| 5c 5c 28 5c 5c 73 77 2b | 5c 5c 29 5b 20 09 5d 2a |\\(\\sw+|\\)[ .]*|
|000021c0| 3a 5b 20 09 5d 2a 5c 5c | 29 5c 5c 28 5c 5c 28 69 |:[ .]*\\|)\\(\\(i|
|000021d0| 66 5c 5c 7c 64 6f 5c 5c | 28 5b 20 09 5d 2a 77 68 |f\\|do\\|([ .]*wh|
|000021e0| 69 6c 65 5c 5c 29 3f 5c | 5c 7c 73 65 6c 65 63 74 |ile\\)?\|\|select|
|000021f0| 5b 20 09 5d 2a 63 61 73 | 65 5c 5c 29 5c 5c 29 5c |[ .]*cas|e\\)\\)\|
|00002200| 5c 3e 22 20 32 20 66 6f | 6e 74 2d 6c 6f 63 6b 2d |\>" 2 fo|nt-lock-|
|00002210| 64 6f 63 2d 73 74 72 69 | 6e 67 2d 66 61 63 65 29 |doc-stri|ng-face)|
|00002220| 20 28 22 5e 5b 20 09 30 | 2d 39 5d 2a 5c 5c 28 5c | ("^[ .0|-9]*\\(\|
|00002230| 5c 28 5c 5c 73 77 2b 5c | 5c 29 5b 20 09 5d 2a 3a |\(\\sw+\|\)[ .]*:|
|00002240| 5b 20 09 5d 2a 5c 5c 29 | 3f 5c 5c 28 5c 5c 28 69 |[ .]*\\)|?\\(\\(i|
|00002250| 66 5c 5c 7c 64 6f 5c 5c | 28 5b 20 09 5d 2a 77 68 |f\\|do\\|([ .]*wh|
|00002260| 69 6c 65 5c 5c 29 3f 5c | 5c 7c 73 65 6c 65 63 74 |ile\\)?\|\|select|
|00002270| 5b 20 09 5d 2a 63 61 73 | 65 5c 5c 29 5c 5c 29 5c |[ .]*cas|e\\)\\)\|
|00002280| 5c 3e 22 20 33 20 66 6f | 6e 74 2d 6c 6f 63 6b 2d |\>" 3 fo|nt-lock-|
|00002290| 6b 65 79 77 6f 72 64 2d | 66 61 63 65 29 20 28 22 |keyword-|face) ("|
|000022a0| 5c 5c 3c 5c 5c 28 69 6d | 70 6c 69 63 69 74 5c 5c |\\<\\(im|plicit\\|
|000022b0| 29 5b 20 09 5d 2a 5c 5c | 28 72 65 61 6c 5c 5c 7c |)[ .]*\\|(real\\||
|000022c0| 69 6e 74 65 67 65 72 5c | 5c 7c 63 5c 5c 28 68 61 |integer\|\|c\\(ha|
|000022d0| 72 61 63 74 65 72 5c 5c | 7c 6f 6d 70 6c 65 78 5c |racter\\||omplex\|
|000022e0| 5c 29 5c 5c 7c 6c 6f 67 | 69 63 61 6c 5c 5c 7c 74 |\)\\|log|ical\\|t|
|000022f0| 79 70 65 5b 20 09 5d 2a | 28 5c 5c 73 77 2b 29 5c |ype[ .]*|(\\sw+)\|
|00002300| 5c 7c 6e 6f 6e 65 5c 5c | 29 5c 5c 3e 22 20 31 20 |\|none\\|)\\>" 1 |
|00002310| 66 6f 6e 74 2d 6c 6f 63 | 6b 2d 6b 65 79 77 6f 72 |font-loc|k-keywor|
|00002320| 64 2d 66 61 63 65 29 20 | 28 22 5c 5c 3c 5c 5c 28 |d-face) |("\\<\\(|
|00002330| 69 6d 70 6c 69 63 69 74 | 5c 5c 29 5b 20 09 5d 2a |implicit|\\)[ .]*|
|00002340| 5c 5c 28 72 65 61 6c 5c | 5c 7c 69 6e 74 65 67 65 |\\(real\|\|intege|
|00002350| 72 5c 5c 7c 63 5c 5c 28 | 68 61 72 61 63 74 65 72 |r\\|c\\(|haracter|
|00002360| 5c 5c 7c 6f 6d 70 6c 65 | 78 5c 5c 29 5c 5c 7c 6c |\\|omple|x\\)\\|l|
|00002370| 6f 67 69 63 61 6c 5c 5c | 7c 74 79 70 65 5b 20 09 |ogical\\||type[ .|
|00002380| 5d 2a 28 5c 5c 73 77 2b | 29 5c 5c 7c 6e 6f 6e 65 |]*(\\sw+|)\\|none|
|00002390| 5c 5c 29 5c 5c 3e 22 20 | 32 20 66 6f 6e 74 2d 6c |\\)\\>" |2 font-l|
|000023a0| 6f 63 6b 2d 74 79 70 65 | 2d 66 61 63 65 29 20 28 |ock-type|-face) (|
|000023b0| 22 5c 5c 3c 5c 5c 28 6e | 61 6d 65 6c 69 73 74 5c |"\\<\\(n|amelist\|
|000023c0| 5c 7c 63 6f 6d 6d 6f 6e | 5c 5c 29 5b 20 09 5d 2a |\|common|\\)[ .]*|
|000023d0| 2f 5c 5c 28 5c 5c 73 77 | 2b 5c 5c 29 3f 2f 22 20 |/\\(\\sw|+\\)?/" |
|000023e0| 31 20 66 6f 6e 74 2d 6c | 6f 63 6b 2d 6b 65 79 77 |1 font-l|ock-keyw|
|000023f0| 6f 72 64 2d 66 61 63 65 | 29 20 28 22 5c 5c 3c 5c |ord-face|) ("\\<\|
|00002400| 5c 28 6e 61 6d 65 6c 69 | 73 74 5c 5c 7c 63 6f 6d |\(nameli|st\\|com|
|00002410| 6d 6f 6e 5c 5c 29 5b 20 | 09 5d 2a 2f 5c 5c 28 5c |mon\\)[ |.]*/\\(\|
|00002420| 5c 73 77 2b 5c 5c 29 2f | 22 20 32 20 66 6f 6e 74 |\sw+\\)/|" 2 font|
|00002430| 2d 6c 6f 63 6b 2d 64 6f | 63 2d 73 74 72 69 6e 67 |-lock-do|c-string|
|00002440| 2d 66 61 63 65 20 6e 69 | 6c 20 74 29 20 28 22 5c |-face ni|l t) ("\|
|00002450| 5c 3c 5c 5c 28 77 68 65 | 72 65 5c 5c 7c 66 6f 72 |\<\\(whe|re\\|for|
|00002460| 61 6c 6c 5c 5c 29 5b 20 | 09 5d 2a 28 22 20 2e 20 |all\\)[ |.]*(" . |
|00002470| 31 29 20 22 5c 5c 3c 65 | 5c 5c 28 6c 73 65 5c 5c |1) "\\<e|\\(lse\\|
|00002480| 28 5b 20 09 5d 2a 69 66 | 5c 5c 7c 77 68 65 72 65 |([ .]*if|\\|where|
|00002490| 5c 5c 29 3f 5c 5c 7c 6e | 64 5b 20 09 5d 2a 5c 5c |\\)?\\|n|d[ .]*\\|
|000024a0| 28 77 68 65 72 65 5c 5c | 7c 66 6f 72 61 6c 6c 5c |(where\\||forall\|
|000024b0| 5c 29 5c 5c 29 5c 5c 3e | 22 20 22 5c 5c 3c 5c 5c |\)\\)\\>|" "\\<\\|
|000024c0| 28 74 68 65 6e 5c 5c 7c | 63 6f 6e 74 69 6e 75 65 |(then\\||continue|
|000024d0| 5c 5c 7c 66 6f 72 6d 61 | 74 5c 5c 7c 69 6e 63 6c |\\|forma|t\\|incl|
|000024e0| 75 64 65 5c 5c 7c 73 74 | 6f 70 5c 5c 7c 72 65 74 |ude\\|st|op\\|ret|
|000024f0| 75 72 6e 5c 5c 29 5c 5c | 3e 22 20 28 22 5c 5c 3c |urn\\)\\|>" ("\\<|
|00002500| 5c 5c 28 65 78 69 74 5c | 5c 7c 63 79 63 6c 65 5c |\\(exit\|\|cycle\|
|00002510| 5c 29 5c 5c 3e 22 20 31 | 20 66 6f 6e 74 2d 6c 6f |\)\\>" 1| font-lo|
|00002520| 63 6b 2d 6b 65 79 77 6f | 72 64 2d 66 61 63 65 29 |ck-keywo|rd-face)|
|00002530| 20 28 22 5c 5c 3c 5c 5c | 28 65 78 69 74 5c 5c 7c | ("\\<\\|(exit\\||
|00002540| 63 79 63 6c 65 5c 5c 29 | 5b 20 09 5d 2a 5c 5c 28 |cycle\\)|[ .]*\\(|
|00002550| 5c 5c 73 77 2b 5c 5c 29 | 32 5c 5c 3e 22 20 32 20 |\\sw+\\)|2\\>" 2 |
|00002560| 66 6f 6e 74 2d 6c 6f 63 | 6b 2d 64 6f 63 2d 73 74 |font-loc|k-doc-st|
|00002570| 72 69 6e 67 2d 66 61 63 | 65 29 20 28 22 5c 5c 3c |ring-fac|e) ("\\<|
|00002580| 5c 5c 28 63 61 73 65 5c | 5c 29 5b 20 09 5d 2a 5c |\\(case\|\)[ .]*\|
|00002590| 5c 28 64 65 66 61 75 6c | 74 5c 5c 7c 28 5c 5c 29 |\(defaul|t\\|(\\)|
|000025a0| 22 20 2e 20 31 29 20 28 | 22 5c 5c 3c 5c 5c 28 64 |" . 1) (|"\\<\\(d|
|000025b0| 6f 5c 5c 7c 67 6f 20 2a | 74 6f 5c 5c 29 5c 5c 3e |o\\|go *|to\\)\\>|
|000025c0| 5b 20 09 5d 2a 5c 5c 28 | 5b 30 2d 39 5d 2b 5c 5c |[ .]*\\(|[0-9]+\\|
|000025d0| 29 22 20 31 20 66 6f 6e | 74 2d 6c 6f 63 6b 2d 6b |)" 1 fon|t-lock-k|
|000025e0| 65 79 77 6f 72 64 2d 66 | 61 63 65 29 20 28 22 5c |eyword-f|ace) ("\|
|000025f0| 5c 3c 5c 5c 28 64 6f 5c | 5c 7c 67 6f 20 2a 74 6f |\<\\(do\|\|go *to|
|00002600| 5c 5c 29 5c 5c 3e 5b 20 | 09 5d 2a 5c 5c 28 5b 30 |\\)\\>[ |.]*\\([0|
|00002610| 2d 39 5d 2b 5c 5c 29 22 | 20 32 20 66 6f 6e 74 2d |-9]+\\)"| 2 font-|
|00002620| 6c 6f 63 6b 2d 64 6f 63 | 2d 73 74 72 69 6e 67 2d |lock-doc|-string-|
|00002630| 66 61 63 65 29 20 28 22 | 5e 5b 20 09 5d 2a 5c 5c |face) ("|^[ .]*\\|
|00002640| 28 5b 30 2d 39 5d 2b 5c | 5c 29 22 20 31 20 66 6f |([0-9]+\|\)" 1 fo|
|00002650| 6e 74 2d 6c 6f 63 6b 2d | 64 6f 63 2d 73 74 72 69 |nt-lock-|doc-stri|
|00002660| 6e 67 2d 66 61 63 65 20 | 74 29 20 28 22 5e 5b 20 |ng-face |t) ("^[ |
|00002670| 09 30 2d 39 5d 2a 5c 5c | 28 72 65 61 6c 5c 5c 7c |.0-9]*\\|(real\\||
|00002680| 69 6e 74 65 67 65 72 5c | 5c 7c 63 5c 5c 28 68 61 |integer\|\|c\\(ha|
|00002690| 72 61 63 74 65 72 5c 5c | 7c 6f 6d 70 6c 65 78 5c |racter\\||omplex\|
|000026a0| 5c 29 5c 5c 7c 6c 6f 67 | 69 63 61 6c 5c 5c 7c 74 |\)\\|log|ical\\|t|
|000026b0| 79 70 65 5b 20 09 5d 2a | 28 5c 5c 73 77 2b 29 5c |ype[ .]*|(\\sw+)\|
|000026c0| 5c 29 5c 5c 28 2e 2a 3a | 3a 5c 5c 7c 5b 20 09 5d |\)\\(.*:|:\\|[ .]|
|000026d0| 2a 28 2e 2a 29 5c 5c 29 | 3f 5c 5c 28 2e 2a 5c 5c |*(.*)\\)|?\\(.*\\|
|000026e0| 29 22 20 28 31 20 66 6f | 6e 74 2d 6c 6f 63 6b 2d |)" (1 fo|nt-lock-|
|000026f0| 74 79 70 65 2d 66 61 63 | 65 29 20 28 34 20 66 6f |type-fac|e) (4 fo|
|00002700| 6e 74 2d 6c 6f 63 6b 2d | 76 61 72 69 61 62 6c 65 |nt-lock-|variable|
|00002710| 2d 6e 61 6d 65 2d 66 61 | 63 65 29 29 20 28 22 5c |-name-fa|ce)) ("\|
|00002720| 5c 3c 5c 5c 28 65 6e 64 | 5b 20 09 5d 2a 5c 5c 28 |\<\\(end|[ .]*\\(|
|00002730| 64 6f 5c 5c 7c 69 66 5c | 5c 7c 73 65 6c 65 63 74 |do\\|if\|\|select|
|00002740| 5c 5c 29 5c 5c 29 5c 5c | 3e 5c 5c 28 5b 20 09 5d |\\)\\)\\|>\\([ .]|
|00002750| 2b 5c 5c 28 5c 5c 73 77 | 2b 5c 5c 29 5c 5c 29 3f |+\\(\\sw|+\\)\\)?|
|00002760| 22 20 28 31 20 66 6f 6e | 74 2d 6c 6f 63 6b 2d 6b |" (1 fon|t-lock-k|
|00002770| 65 79 77 6f 72 64 2d 66 | 61 63 65 29 20 28 33 20 |eyword-f|ace) (3 |
|00002780| 66 6f 6e 74 2d 6c 6f 63 | 6b 2d 72 65 66 65 72 65 |font-loc|k-refere|
|00002790| 6e 63 65 2d 66 61 63 65 | 20 6e 69 6c 20 74 29 29 |nce-face| nil t))|
|000027a0| 20 28 22 5e 5b 20 09 30 | 2d 39 5d 2a 5c 5c 28 5c | ("^[ .0|-9]*\\(\|
|000027b0| 5c 28 5c 5c 73 77 2b 5c | 5c 29 5b 20 09 5d 2a 3a |\(\\sw+\|\)[ .]*:|
|000027c0| 5b 20 09 5d 2a 5c 5c 29 | 3f 5c 5c 28 5c 5c 28 69 |[ .]*\\)|?\\(\\(i|
|000027d0| 66 5c 5c 7c 64 6f 5c 5c | 28 5b 20 09 5d 2a 77 68 |f\\|do\\|([ .]*wh|
|000027e0| 69 6c 65 5c 5c 29 3f 5c | 5c 7c 73 65 6c 65 63 74 |ile\\)?\|\|select|
|000027f0| 5b 20 09 5d 2a 63 61 73 | 65 5c 5c 29 5c 5c 29 5c |[ .]*cas|e\\)\\)\|
|00002800| 5c 3e 22 20 28 32 20 66 | 6f 6e 74 2d 6c 6f 63 6b |\>" (2 f|ont-lock|
|00002810| 2d 72 65 66 65 72 65 6e | 63 65 2d 66 61 63 65 20 |-referen|ce-face |
|00002820| 6e 69 6c 20 74 29 20 28 | 33 20 66 6f 6e 74 2d 6c |nil t) (|3 font-l|
|00002830| 6f 63 6b 2d 6b 65 79 77 | 6f 72 64 2d 66 61 63 65 |ock-keyw|ord-face|
|00002840| 29 29 20 28 22 5c 5c 3c | 5c 5c 28 69 6d 70 6c 69 |)) ("\\<|\\(impli|
|00002850| 63 69 74 5c 5c 29 5b 20 | 09 5d 2a 5c 5c 28 72 65 |cit\\)[ |.]*\\(re|
|00002860| 61 6c 5c 5c 7c 69 6e 74 | 65 67 65 72 5c 5c 7c 63 |al\\|int|eger\\|c|
|00002870| 5c 5c 28 68 61 72 61 63 | 74 65 72 5c 5c 7c 6f 6d |\\(harac|ter\\|om|
|00002880| 70 6c 65 78 5c 5c 29 5c | 5c 7c 6c 6f 67 69 63 61 |plex\\)\|\|logica|
|00002890| 6c 5c 5c 7c 74 79 70 65 | 5b 20 09 5d 2a 28 5c 5c |l\\|type|[ .]*(\\|
|000028a0| 73 77 2b 29 5c 5c 7c 6e | 6f 6e 65 5c 5c 29 5c 5c |sw+)\\|n|one\\)\\|
|000028b0| 3e 22 20 28 31 20 66 6f | 6e 74 2d 6c 6f 63 6b 2d |>" (1 fo|nt-lock-|
|000028c0| 6b 65 79 77 6f 72 64 2d | 66 61 63 65 29 20 28 32 |keyword-|face) (2|
|000028d0| 20 66 6f 6e 74 2d 6c 6f | 63 6b 2d 74 79 70 65 2d | font-lo|ck-type-|
|000028e0| 66 61 63 65 29 29 20 28 | 22 5c 5c 3c 5c 5c 28 6e |face)) (|"\\<\\(n|
|000028f0| 61 6d 65 6c 69 73 74 5c | 5c 7c 63 6f 6d 6d 6f 6e |amelist\|\|common|
|00002900| 5c 5c 29 5b 20 09 5d 2a | 2f 5c 5c 28 5c 5c 73 77 |\\)[ .]*|/\\(\\sw|
|00002910| 2b 5c 5c 29 3f 2f 22 20 | 28 31 20 66 6f 6e 74 2d |+\\)?/" |(1 font-|
|00002920| 6c 6f 63 6b 2d 6b 65 79 | 77 6f 72 64 2d 66 61 63 |lock-key|word-fac|
|00002930| 65 29 20 28 32 20 66 6f | 6e 74 2d 6c 6f 63 6b 2d |e) (2 fo|nt-lock-|
|00002940| 72 65 66 65 72 65 6e 63 | 65 2d 66 61 63 65 20 6e |referenc|e-face n|
|00002950| 69 6c 20 74 29 29 20 28 | 22 5c 5c 3c 5c 5c 28 77 |il t)) (|"\\<\\(w|
|00002960| 68 65 72 65 5c 5c 7c 66 | 6f 72 61 6c 6c 5c 5c 29 |here\\|f|orall\\)|
|00002970| 5b 20 09 5d 2a 28 22 20 | 2e 20 31 29 20 28 22 5c |[ .]*(" |. 1) ("\|
|00002980| 5c 3c 5c 5c 28 65 78 69 | 74 5c 5c 7c 63 79 63 6c |\<\\(exi|t\\|cycl|
|00002990| 65 5c 5c 29 5b 20 09 5d | 2a 5c 5c 28 5c 5c 73 77 |e\\)[ .]|*\\(\\sw|
|000029a0| 2b 5c 5c 29 3f 5c 5c 3e | 22 20 28 31 20 66 6f 6e |+\\)?\\>|" (1 fon|
|000029b0| 74 2d 6c 6f 63 6b 2d 6b | 65 79 77 6f 72 64 2d 66 |t-lock-k|eyword-f|
|000029c0| 61 63 65 29 20 28 32 20 | 66 6f 6e 74 2d 6c 6f 63 |ace) (2 |font-loc|
|000029d0| 6b 2d 72 65 66 65 72 65 | 6e 63 65 2d 66 61 63 65 |k-refere|nce-face|
|000029e0| 20 6e 69 6c 20 74 29 29 | 20 28 22 5c 5c 3c 5c 5c | nil t))| ("\\<\\|
|000029f0| 28 63 61 73 65 5c 5c 29 | 5b 20 09 5d 2a 5c 5c 28 |(case\\)|[ .]*\\(|
|00002a00| 64 65 66 61 75 6c 74 5c | 5c 7c 28 5c 5c 29 22 20 |default\|\|(\\)" |
|00002a10| 2e 20 31 29 20 28 22 5c | 5c 3c 5c 5c 28 64 6f 5c |. 1) ("\|\<\\(do\|
|00002a20| 5c 7c 67 6f 20 2a 74 6f | 5c 5c 29 5c 5c 3e 5b 20 |\|go *to|\\)\\>[ |
|00002a30| 09 5d 2a 5c 5c 28 5b 30 | 2d 39 5d 2b 5c 5c 29 22 |.]*\\([0|-9]+\\)"|
|00002a40| 20 28 31 20 66 6f 6e 74 | 2d 6c 6f 63 6b 2d 6b 65 | (1 font|-lock-ke|
|00002a50| 79 77 6f 72 64 2d 66 61 | 63 65 29 20 28 32 20 66 |yword-fa|ce) (2 f|
|00002a60| 6f 6e 74 2d 6c 6f 63 6b | 2d 72 65 66 65 72 65 6e |ont-lock|-referen|
|00002a70| 63 65 2d 66 61 63 65 29 | 29 20 28 22 5e 5b 20 09 |ce-face)|) ("^[ .|
|00002a80| 5d 2a 5c 5c 28 5b 30 2d | 39 5d 2b 5c 5c 29 22 20 |]*\\([0-|9]+\\)" |
|00002a90| 28 31 20 66 6f 6e 74 2d | 6c 6f 63 6b 2d 72 65 66 |(1 font-|lock-ref|
|00002aa0| 65 72 65 6e 63 65 2d 66 | 61 63 65 20 74 29 29 5d |erence-f|ace t))]|
|00002ab0| 20 32 31 29 20 28 23 24 | 20 2e 20 37 39 35 32 29 | 21) (#$| . 7952)|
|00002ac0| 29 0a 23 40 35 35 20 48 | 69 67 68 6c 69 67 68 74 |).#@55 H|ighlight|
|00002ad0| 73 20 61 6c 6c 20 46 39 | 30 20 6b 65 79 77 6f 72 |s all F9|0 keywor|
|00002ae0| 64 73 20 61 6e 64 20 69 | 6e 74 72 69 6e 73 69 63 |ds and i|ntrinsic|
|00002af0| 20 70 72 6f 63 65 64 75 | 72 65 73 2e 1f 0a 28 64 | procedu|res...(d|
|00002b00| 65 66 76 61 72 20 66 39 | 30 2d 66 6f 6e 74 2d 6c |efvar f9|0-font-l|
|00002b10| 6f 63 6b 2d 6b 65 79 77 | 6f 72 64 73 2d 33 20 28 |ock-keyw|ords-3 (|
|00002b20| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 09 5c 6e 0b |byte-cod|e "..\n.|
|00002b30| c4 c5 0e 06 5c 22 83 15 | 00 c0 0e 07 43 c8 5c 22 |....\"..|....C.\"|
|00002b40| 82 19 00 0e 07 c9 44 ca | 46 5c 22 87 22 20 5b 61 |......D.|F\"." [a|
|00002b50| 70 70 65 6e 64 20 66 39 | 30 2d 66 6f 6e 74 2d 6c |ppend f9|0-font-l|
|00002b60| 6f 63 6b 2d 6b 65 79 77 | 6f 72 64 73 2d 32 20 66 |ock-keyw|ords-2 f|
|00002b70| 39 30 2d 6b 65 79 77 6f | 72 64 73 2d 6c 65 76 65 |90-keywo|rds-leve|
|00002b80| 6c 2d 33 2d 72 65 20 66 | 39 30 2d 6f 70 65 72 61 |l-3-re f|90-opera|
|00002b90| 74 6f 72 73 2d 72 65 20 | 73 74 72 69 6e 67 2d 6d |tors-re |string-m|
|00002ba0| 61 74 63 68 20 22 58 45 | 6d 61 63 73 22 20 65 6d |atch "XE|macs" em|
|00002bb0| 61 63 73 2d 76 65 72 73 | 69 6f 6e 20 66 39 30 2d |acs-vers|ion f90-|
|00002bc0| 70 72 6f 63 65 64 75 72 | 65 73 2d 72 65 20 28 31 |procedur|es-re (1|
|00002bd0| 20 66 6f 6e 74 2d 6c 6f | 63 6b 2d 6b 65 79 77 6f | font-lo|ck-keywo|
|00002be0| 72 64 2d 66 61 63 65 20 | 74 29 20 28 31 20 66 6f |rd-face |t) (1 fo|
|00002bf0| 6e 74 2d 6c 6f 63 6b 2d | 6b 65 79 77 6f 72 64 2d |nt-lock-|keyword-|
|00002c00| 66 61 63 65 20 74 29 20 | 22 5c 5c 3c 72 65 61 6c |face t) |"\\<real|
|00002c10| 5c 5c 3e 22 5d 20 37 29 | 20 28 23 24 20 2e 20 31 |\\>"] 7)| (#$ . 1|
|00002c20| 30 39 35 31 29 29 0a 23 | 40 33 38 20 48 69 67 68 |0951)).#|@38 High|
|00002c30| 6c 69 67 68 74 73 20 61 | 6c 6c 20 46 39 30 20 61 |lights a|ll F90 a|
|00002c40| 6e 64 20 48 50 46 20 6b | 65 79 77 6f 72 64 73 2e |nd HPF k|eywords.|
|00002c50| 1f 0a 28 64 65 66 76 61 | 72 20 66 39 30 2d 66 6f |..(defva|r f90-fo|
|00002c60| 6e 74 2d 6c 6f 63 6b 2d | 6b 65 79 77 6f 72 64 73 |nt-lock-|keywords|
|00002c70| 2d 34 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |-4 (byte|-code ".|
|00002c80| 09 5c 6e 43 5c 22 87 22 | 20 5b 61 70 70 65 6e 64 |.\nC\"."| [append|
|00002c90| 20 66 39 30 2d 66 6f 6e | 74 2d 6c 6f 63 6b 2d 6b | f90-fon|t-lock-k|
|00002ca0| 65 79 77 6f 72 64 73 2d | 33 20 66 39 30 2d 68 70 |eywords-|3 f90-hp|
|00002cb0| 66 2d 6b 65 79 77 6f 72 | 64 73 2d 72 65 5d 20 33 |f-keywor|ds-re] 3|
|00002cc0| 29 20 28 23 24 20 2e 20 | 31 31 33 30 38 29 29 0a |) (#$ . |11308)).|
|00002cd0| 23 40 34 38 20 2a 44 65 | 66 61 75 6c 74 20 65 78 |#@48 *De|fault ex|
|00002ce0| 70 72 65 73 73 69 6f 6e | 73 20 74 6f 20 68 69 67 |pression|s to hig|
|00002cf0| 68 6c 69 67 68 74 20 69 | 6e 20 46 39 30 20 6d 6f |hlight i|n F90 mo|
|00002d00| 64 65 2e 1f 0a 28 64 65 | 66 76 61 72 20 66 39 30 |de...(de|fvar f90|
|00002d10| 2d 66 6f 6e 74 2d 6c 6f | 63 6b 2d 6b 65 79 77 6f |-font-lo|ck-keywo|
|00002d20| 72 64 73 20 66 39 30 2d | 66 6f 6e 74 2d 6c 6f 63 |rds f90-|font-loc|
|00002d30| 6b 2d 6b 65 79 77 6f 72 | 64 73 2d 32 20 28 23 24 |k-keywor|ds-2 (#$|
|00002d40| 20 2e 20 2d 31 31 34 37 | 37 29 29 0a 23 40 34 32 | . -1147|7)).#@42|
|00002d50| 20 53 79 6e 74 61 78 20 | 74 61 62 6c 65 20 69 6e | Syntax |table in|
|00002d60| 20 75 73 65 20 69 6e 20 | 46 39 30 20 6d 6f 64 65 | use in |F90 mode|
|00002d70| 20 62 75 66 66 65 72 73 | 2e 1f 0a 28 64 65 66 76 | buffers|...(defv|
|00002d80| 61 72 20 66 39 30 2d 6d | 6f 64 65 2d 73 79 6e 74 |ar f90-m|ode-synt|
|00002d90| 61 78 2d 74 61 62 6c 65 | 20 6e 69 6c 20 28 23 24 |ax-table| nil (#$|
|00002da0| 20 2e 20 31 31 36 30 31 | 29 29 0a 28 62 79 74 65 | . 11601|)).(byte|
|00002db0| 2d 63 6f 64 65 20 22 08 | 84 55 00 c1 20 10 c2 c3 |-code ".|.U.. ...|
|00002dc0| c4 08 23 88 c2 c5 c6 08 | 23 88 c2 c7 c8 08 23 88 |..#.....|#.....#.|
|00002dd0| c2 c9 ca 08 23 88 c2 cb | ca 08 23 88 c2 cc c8 08 |....#...|..#.....|
|00002de0| 23 88 c2 cd ce 08 23 88 | c2 cf d0 08 23 88 c2 d1 |#.....#.|....#...|
|00002df0| d0 08 23 88 c2 d2 d0 08 | 23 88 c2 d3 d0 08 23 88 |..#.....|#.....#.|
|00002e00| c2 d4 d0 08 23 88 c2 d5 | d6 08 23 88 c1 87 22 20 |....#...|..#..." |
|00002e10| 5b 66 39 30 2d 6d 6f 64 | 65 2d 73 79 6e 74 61 78 |[f90-mod|e-syntax|
|00002e20| 2d 74 61 62 6c 65 20 6d | 61 6b 65 2d 73 79 6e 74 |-table m|ake-synt|
|00002e30| 61 78 2d 74 61 62 6c 65 | 20 6d 6f 64 69 66 79 2d |ax-table| modify-|
|00002e40| 73 79 6e 74 61 78 2d 65 | 6e 74 72 79 20 33 33 20 |syntax-e|ntry 33 |
|00002e50| 22 3c 22 20 31 30 20 22 | 3e 22 20 39 35 20 22 77 |"<" 10 "|>" 95 "w|
|00002e60| 22 20 33 39 20 22 5c 22 | 22 20 33 34 20 39 36 20 |" 39 "\"|" 34 96 |
|00002e70| 31 33 20 22 20 22 20 34 | 33 20 22 2e 22 20 34 35 |13 " " 4|3 "." 45|
|00002e80| 20 36 31 20 34 32 20 34 | 37 20 39 32 20 22 2f 22 | 61 42 4|7 92 "/"|
|00002e90| 5d 20 34 29 0a 23 40 32 | 36 20 4b 65 79 6d 61 70 |] 4).#@2|6 Keymap|
|00002ea0| 20 75 73 65 64 20 69 6e | 20 46 39 30 20 6d 6f 64 | used in| F90 mod|
|00002eb0| 65 2e 1f 0a 28 64 65 66 | 76 61 72 20 66 39 30 2d |e...(def|var f90-|
|00002ec0| 6d 6f 64 65 2d 6d 61 70 | 20 6e 69 6c 20 28 23 24 |mode-map| nil (#$|
|00002ed0| 20 2e 20 31 31 39 33 30 | 29 29 0a 28 62 79 74 65 | . 11930|)).(byte|
|00002ee0| 2d 63 6f 64 65 20 22 08 | 84 61 00 c1 20 10 c2 08 |-code ".|.a.. ...|
|00002ef0| c3 c4 23 88 c2 08 c5 c6 | 23 88 c2 08 c7 c8 23 88 |..#.....|#.....#.|
|00002f00| c2 08 c9 ca 23 88 c2 08 | cb cc 23 88 c2 08 cd ce |....#...|..#.....|
|00002f10| 23 88 c2 08 cf d0 23 88 | c2 08 d1 d2 23 88 c2 08 |#.....#.|....#...|
|00002f20| d3 d4 23 88 c2 08 d5 d6 | 23 88 c2 08 d7 d8 23 88 |..#.....|#.....#.|
|00002f30| c2 08 d9 da 23 88 c2 08 | db dc 23 88 c2 08 dd de |....#...|..#.....|
|00002f40| 23 88 c2 08 df e0 23 88 | e1 e2 0e 23 5c 22 83 81 |#.....#.|...#\"..|
|00002f50| 00 e4 e5 21 84 72 00 e6 | 16 25 e5 0e 27 42 16 27 |...!.r..|.%..'B.'|
|00002f60| e8 e5 e9 ea 23 88 82 24 | 01 c2 08 eb c1 20 23 88 |....#..$|..... #.|
|00002f70| c2 08 ec ed c1 ee 21 42 | 23 88 c2 08 ef f0 23 88 |......!B|#.....#.|
|00002f80| c2 08 f1 f2 23 88 c2 08 | f3 f4 23 88 c2 08 f5 f6 |....#...|..#.....|
|00002f90| 23 88 c2 08 f7 f8 23 88 | c2 08 f9 fa 23 88 c2 08 |#.....#.|....#...|
|00002fa0| fb fc 23 88 c2 08 fd fe | 23 88 c2 08 ff 81 40 00 |..#.....|#.....@.|
|00002fb0| 23 88 c2 08 81 41 00 81 | 42 00 23 88 c2 08 81 43 |#....A..|B.#....C|
|00002fc0| 00 81 44 00 23 88 c2 08 | 81 45 00 81 46 00 23 88 |..D.#...|.E..F.#.|
|00002fd0| c2 08 81 47 00 81 48 00 | 23 88 c2 08 81 49 00 81 |...G..H.|#....I..|
|00002fe0| 4a 00 23 88 c2 08 81 4b | 00 81 4c 00 23 88 c2 08 |J.#....K|..L.#...|
|00002ff0| 81 4d 00 81 4e 00 23 88 | c2 08 81 4f 00 81 50 00 |.M..N.#.|...O..P.|
|00003000| 23 88 c2 08 81 51 00 81 | 52 00 23 88 81 53 00 16 |#....Q..|R.#..S..|
|00003010| 54 81 54 00 0e 27 42 16 | 27 81 55 00 16 56 81 56 |T.T..'B.|'.U..V.V|
|00003020| 00 0e 27 42 16 27 81 57 | 00 16 58 81 58 00 0e 27 |..'B.'.W|..X.X..'|
|00003030| 42 16 27 81 59 00 16 5a | 81 5a 00 0e 27 42 16 27 |B.'.Y..Z|.Z..'B.'|
|00003040| 81 5b 00 16 5c 5c 81 5c | 5c 00 0e 27 42 16 27 81 |.[..\\.\|\..'B.'.|
|00003050| 5d 00 16 5e 81 5e 00 0e | 27 42 16 27 81 5f 00 16 |]..^.^..|'B.'._..|
|00003060| 60 81 60 00 0e 27 42 16 | 27 e4 81 61 00 21 84 8c |`.`..'B.|'..a.!..|
|00003070| 01 81 62 00 16 61 81 61 | 00 0e 27 42 16 27 81 63 |..b..a.a|..'B.'.c|
|00003080| 00 81 61 00 21 87 22 20 | 5b 66 39 30 2d 6d 6f 64 |..a.!." |[f90-mod|
|00003090| 65 2d 6d 61 70 20 6d 61 | 6b 65 2d 73 70 61 72 73 |e-map ma|ke-spars|
|000030a0| 65 2d 6b 65 79 6d 61 70 | 20 64 65 66 69 6e 65 2d |e-keymap| define-|
|000030b0| 6b 65 79 20 22 60 22 20 | 66 39 30 2d 61 62 62 72 |key "`" |f90-abbr|
|000030c0| 65 76 2d 73 74 61 72 74 | 20 22 03 3b 22 20 66 39 |ev-start| ".;" f9|
|000030d0| 30 2d 63 6f 6d 6d 65 6e | 74 2d 72 65 67 69 6f 6e |0-commen|t-region|
|000030e0| 20 22 81 22 20 66 39 30 | 2d 62 65 67 69 6e 6e 69 | "." f90|-beginni|
|000030f0| 6e 67 2d 6f 66 2d 73 75 | 62 70 72 6f 67 72 61 6d |ng-of-su|bprogram|
|00003100| 20 22 85 22 20 66 39 30 | 2d 65 6e 64 2d 6f 66 2d | "." f90|-end-of-|
|00003110| 73 75 62 70 72 6f 67 72 | 61 6d 20 22 88 22 20 66 |subprogr|am "." f|
|00003120| 39 30 2d 6d 61 72 6b 2d | 73 75 62 70 72 6f 67 72 |90-mark-|subprogr|
|00003130| 61 6d 20 22 91 22 20 66 | 39 30 2d 69 6e 64 65 6e |am "." f|90-inden|
|00003140| 74 2d 73 75 62 70 72 6f | 67 72 61 6d 20 22 5c 6e |t-subpro|gram "\n|
|00003150| 22 20 66 39 30 2d 69 6e | 64 65 6e 74 2d 6e 65 77 |" f90-in|dent-new|
|00003160| 2d 6c 69 6e 65 20 22 0d | 22 20 6e 65 77 6c 69 6e |-line ".|" newlin|
|00003170| 65 20 22 03 0d 22 20 66 | 39 30 2d 62 72 65 61 6b |e ".." f|90-break|
|00003180| 2d 6c 69 6e 65 20 22 03 | 04 22 20 66 39 30 2d 6a |-line ".|." f90-j|
|00003190| 6f 69 6e 2d 6c 69 6e 65 | 73 20 22 03 06 22 20 66 |oin-line|s ".." f|
|000031a0| 39 30 2d 66 69 6c 6c 2d | 72 65 67 69 6f 6e 20 22 |90-fill-|region "|
|000031b0| 03 10 22 20 66 39 30 2d | 70 72 65 76 69 6f 75 73 |.." f90-|previous|
|000031c0| 2d 73 74 61 74 65 6d 65 | 6e 74 20 22 03 0e 22 20 |-stateme|nt ".." |
|000031d0| 66 39 30 2d 6e 65 78 74 | 2d 73 74 61 74 65 6d 65 |f90-next|-stateme|
|000031e0| 6e 74 20 22 03 17 22 20 | 66 39 30 2d 69 6e 73 65 |nt ".." |f90-inse|
|000031f0| 72 74 2d 65 6e 64 20 22 | 09 22 20 66 39 30 2d 69 |rt-end "|." f90-i|
|00003200| 6e 64 65 6e 74 2d 6c 69 | 6e 65 20 73 74 72 69 6e |ndent-li|ne strin|
|00003210| 67 2d 6d 61 74 63 68 20 | 22 58 45 6d 61 63 73 22 |g-match |"XEmacs"|
|00003220| 20 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 20 62 | emacs-v|ersion b|
|00003230| 6f 75 6e 64 70 20 66 39 | 30 2d 78 65 6d 61 63 73 |oundp f9|0-xemacs|
|00003240| 2d 6d 65 6e 75 20 28 22 | 46 39 30 22 20 5b 22 49 |-menu ("|F90" ["I|
|00003250| 6e 64 65 6e 74 20 53 75 | 62 70 72 6f 67 72 61 6d |ndent Su|bprogram|
|00003260| 22 20 66 39 30 2d 69 6e | 64 65 6e 74 2d 73 75 62 |" f90-in|dent-sub|
|00003270| 70 72 6f 67 72 61 6d 20 | 74 5d 20 5b 22 4d 61 72 |program |t] ["Mar|
|00003280| 6b 20 53 75 62 70 72 6f | 67 72 61 6d 22 20 66 39 |k Subpro|gram" f9|
|00003290| 30 2d 6d 61 72 6b 2d 73 | 75 62 70 72 6f 67 72 61 |0-mark-s|ubprogra|
|000032a0| 6d 20 74 5d 20 5b 22 42 | 65 67 69 6e 6e 69 6e 67 |m t] ["B|eginning|
|000032b0| 20 6f 66 20 53 75 62 70 | 72 6f 67 72 61 6d 22 20 | of Subp|rogram" |
|000032c0| 66 39 30 2d 62 65 67 69 | 6e 6e 69 6e 67 2d 6f 66 |f90-begi|nning-of|
|000032d0| 2d 73 75 62 70 72 6f 67 | 72 61 6d 20 74 5d 20 5b |-subprog|ram t] [|
|000032e0| 22 45 6e 64 20 6f 66 20 | 53 75 62 70 72 6f 67 72 |"End of |Subprogr|
|000032f0| 61 6d 22 20 66 39 30 2d | 65 6e 64 2d 6f 66 2d 73 |am" f90-|end-of-s|
|00003300| 75 62 70 72 6f 67 72 61 | 6d 20 74 5d 20 22 2d 2d |ubprogra|m t] "--|
|00003310| 2d 2d 2d 22 20 5b 22 28 | 55 6e 29 43 6f 6d 6d 65 |---" ["(|Un)Comme|
|00003320| 6e 74 20 52 65 67 69 6f | 6e 22 20 66 39 30 2d 63 |nt Regio|n" f90-c|
|00003330| 6f 6d 6d 65 6e 74 2d 72 | 65 67 69 6f 6e 20 74 5d |omment-r|egion t]|
|00003340| 20 5b 22 49 6e 64 65 6e | 74 20 52 65 67 69 6f 6e | ["Inden|t Region|
|00003350| 22 20 69 6e 64 65 6e 74 | 2d 72 65 67 69 6f 6e 20 |" indent|-region |
|00003360| 74 5d 20 5b 22 46 69 6c | 6c 20 52 65 67 69 6f 6e |t] ["Fil|l Region|
|00003370| 22 20 66 39 30 2d 66 69 | 6c 6c 2d 72 65 67 69 6f |" f90-fi|ll-regio|
|00003380| 6e 20 74 5d 20 22 2d 2d | 2d 2d 2d 22 20 5b 22 42 |n t] "--|---" ["B|
|00003390| 72 65 61 6b 20 4c 69 6e | 65 20 61 74 20 50 6f 69 |reak Lin|e at Poi|
|000033a0| 6e 74 22 20 66 39 30 2d | 62 72 65 61 6b 2d 6c 69 |nt" f90-|break-li|
|000033b0| 6e 65 20 74 5d 20 5b 22 | 4a 6f 69 6e 20 77 69 74 |ne t] ["|Join wit|
|000033c0| 68 20 4e 65 78 74 20 4c | 69 6e 65 22 20 66 39 30 |h Next L|ine" f90|
|000033d0| 2d 6a 6f 69 6e 2d 6c 69 | 6e 65 73 20 74 5d 20 5b |-join-li|nes t] [|
|000033e0| 22 49 6e 73 65 72 74 20 | 4e 65 77 6c 69 6e 65 22 |"Insert |Newline"|
|000033f0| 20 6e 65 77 6c 69 6e 65 | 20 74 5d 20 5b 22 49 6e | newline| t] ["In|
|00003400| 73 65 72 74 20 45 6e 64 | 22 20 66 39 30 2d 69 6e |sert End|" f90-in|
|00003410| 73 65 72 74 2d 65 6e 64 | 20 74 5d 20 22 2d 2d 2d |sert-end| t] "---|
|00003420| 2d 2d 22 20 5b 22 55 70 | 63 61 73 65 20 4b 65 79 |--" ["Up|case Key|
|00003430| 77 6f 72 64 73 20 28 62 | 75 66 66 65 72 29 22 20 |words (b|uffer)" |
|00003440| 66 39 30 2d 75 70 63 61 | 73 65 2d 6b 65 79 77 6f |f90-upca|se-keywo|
|00003450| 72 64 73 20 74 5d 20 5b | 22 55 70 63 61 73 65 20 |rds t] [|"Upcase |
|00003460| 4b 65 79 77 6f 72 64 73 | 20 28 72 65 67 69 6f 6e |Keywords| (region|
|00003470| 29 22 20 66 39 30 2d 75 | 70 63 61 73 65 2d 72 65 |)" f90-u|pcase-re|
|00003480| 67 69 6f 6e 2d 6b 65 79 | 77 6f 72 64 73 20 74 5d |gion-key|words t]|
|00003490| 20 5b 22 43 61 70 69 74 | 61 6c 69 7a 65 20 4b 65 | ["Capit|alize Ke|
|000034a0| 79 77 6f 72 64 73 20 28 | 62 75 66 66 65 72 29 22 |ywords (|buffer)"|
|000034b0| 20 66 39 30 2d 63 61 70 | 69 74 61 6c 69 7a 65 2d | f90-cap|italize-|
|000034c0| 6b 65 79 77 6f 72 64 73 | 20 74 5d 20 5b 22 43 61 |keywords| t] ["Ca|
|000034d0| 70 69 74 61 6c 69 7a 65 | 20 4b 65 79 77 6f 72 64 |pitalize| Keyword|
|000034e0| 73 20 28 72 65 67 69 6f | 6e 29 22 20 66 39 30 2d |s (regio|n)" f90-|
|000034f0| 63 61 70 69 74 61 6c 69 | 7a 65 2d 72 65 67 69 6f |capitali|ze-regio|
|00003500| 6e 2d 6b 65 79 77 6f 72 | 64 73 20 74 5d 20 5b 22 |n-keywor|ds t] ["|
|00003510| 44 6f 77 6e 63 61 73 65 | 20 4b 65 79 77 6f 72 64 |Downcase| Keyword|
|00003520| 73 20 28 62 75 66 66 65 | 72 29 22 20 66 39 30 2d |s (buffe|r)" f90-|
|00003530| 64 6f 77 6e 63 61 73 65 | 2d 6b 65 79 77 6f 72 64 |downcase|-keyword|
|00003540| 73 20 74 5d 20 5b 22 44 | 6f 77 6e 63 61 73 65 20 |s t] ["D|owncase |
|00003550| 4b 65 79 77 6f 72 64 73 | 20 28 72 65 67 69 6f 6e |Keywords| (region|
|00003560| 29 22 20 66 39 30 2d 64 | 6f 77 6e 63 61 73 65 2d |)" f90-d|owncase-|
|00003570| 72 65 67 69 6f 6e 2d 6b | 65 79 77 6f 72 64 73 20 |region-k|eywords |
|00003580| 74 5d 20 22 2d 2d 2d 2d | 2d 22 20 5b 22 54 6f 67 |t] "----|-" ["Tog|
|00003590| 67 6c 65 20 61 62 62 72 | 65 76 2d 6d 6f 64 65 22 |gle abbr|ev-mode"|
|000035a0| 20 61 62 62 72 65 76 2d | 6d 6f 64 65 20 74 5d 20 | abbrev-|mode t] |
|000035b0| 5b 22 54 6f 67 67 6c 65 | 20 61 75 74 6f 2d 66 69 |["Toggle| auto-fi|
|000035c0| 6c 6c 22 20 66 39 30 2d | 61 75 74 6f 2d 66 69 6c |ll" f90-|auto-fil|
|000035d0| 6c 2d 6d 6f 64 65 20 74 | 5d 29 20 63 75 72 72 65 |l-mode t|]) curre|
|000035e0| 6e 74 2d 6c 6f 61 64 2d | 6c 69 73 74 20 70 75 74 |nt-load-|list put|
|000035f0| 20 76 61 72 69 61 62 6c | 65 2d 64 6f 63 75 6d 65 | variabl|e-docume|
|00003600| 6e 74 61 74 69 6f 6e 20 | 22 58 45 6d 61 63 73 20 |ntation |"XEmacs |
|00003610| 6d 65 6e 75 20 66 6f 72 | 20 46 39 30 20 6d 6f 64 |menu for| F90 mod|
|00003620| 65 2e 22 20 5b 6d 65 6e | 75 2d 62 61 72 5d 20 5b |e." [men|u-bar] [|
|00003630| 6d 65 6e 75 2d 62 61 72 | 20 66 39 30 5d 20 22 46 |menu-bar| f90] "F|
|00003640| 39 30 22 20 22 66 39 30 | 22 20 5b 6d 65 6e 75 2d |90" "f90|" [menu-|
|00003650| 62 61 72 20 66 39 30 20 | 61 62 62 72 65 76 2d 6d |bar f90 |abbrev-m|
|00003660| 6f 64 65 5d 20 28 22 54 | 6f 67 67 6c 65 20 61 62 |ode] ("T|oggle ab|
|00003670| 62 72 65 76 2d 6d 6f 64 | 65 22 20 2e 20 61 62 62 |brev-mod|e" . abb|
|00003680| 72 65 76 2d 6d 6f 64 65 | 29 20 5b 6d 65 6e 75 2d |rev-mode|) [menu-|
|00003690| 62 61 72 20 66 39 30 20 | 66 39 30 2d 61 75 74 6f |bar f90 |f90-auto|
|000036a0| 2d 66 69 6c 6c 2d 6d 6f | 64 65 5d 20 28 22 54 6f |-fill-mo|de] ("To|
|000036b0| 67 67 6c 65 20 61 75 74 | 6f 2d 66 69 6c 6c 22 20 |ggle aut|o-fill" |
|000036c0| 2e 20 66 39 30 2d 61 75 | 74 6f 2d 66 69 6c 6c 2d |. f90-au|to-fill-|
|000036d0| 6d 6f 64 65 29 20 5b 6d | 65 6e 75 2d 62 61 72 20 |mode) [m|enu-bar |
|000036e0| 66 39 30 20 66 39 30 2d | 64 6f 77 6e 63 61 73 65 |f90 f90-|downcase|
|000036f0| 2d 72 65 67 69 6f 6e 2d | 6b 65 79 77 6f 72 64 73 |-region-|keywords|
|00003700| 5d 20 28 22 44 6f 77 6e | 63 61 73 65 20 4b 65 79 |] ("Down|case Key|
|00003710| 77 6f 72 64 73 20 28 72 | 65 67 69 6f 6e 29 22 20 |words (r|egion)" |
|00003720| 2e 20 66 39 30 2d 64 6f | 77 6e 63 61 73 65 2d 72 |. f90-do|wncase-r|
|00003730| 65 67 69 6f 6e 2d 6b 65 | 79 77 6f 72 64 73 29 20 |egion-ke|ywords) |
|00003740| 5b 6d 65 6e 75 2d 62 61 | 72 20 66 39 30 20 66 39 |[menu-ba|r f90 f9|
|00003750| 30 2d 64 6f 77 6e 63 61 | 73 65 2d 6b 65 79 77 6f |0-downca|se-keywo|
|00003760| 72 64 73 5d 20 28 22 44 | 6f 77 6e 63 61 73 65 20 |rds] ("D|owncase |
|00003770| 4b 65 79 77 6f 72 64 73 | 20 28 62 75 66 66 65 72 |Keywords| (buffer|
|00003780| 29 22 20 2e 20 66 39 30 | 2d 64 6f 77 6e 63 61 73 |)" . f90|-downcas|
|00003790| 65 2d 6b 65 79 77 6f 72 | 64 73 29 20 5b 6d 65 6e |e-keywor|ds) [men|
|000037a0| 75 2d 62 61 72 20 66 39 | 30 20 66 39 30 2d 63 61 |u-bar f9|0 f90-ca|
|000037b0| 70 69 74 61 6c 69 7a 65 | 2d 6b 65 79 77 6f 72 64 |pitalize|-keyword|
|000037c0| 73 5d 20 28 22 43 61 70 | 69 74 61 6c 69 7a 65 20 |s] ("Cap|italize |
|000037d0| 4b 65 79 77 6f 72 64 73 | 20 28 72 65 67 69 6f 6e |Keywords| (region|
|000037e0| 29 22 20 2e 20 66 39 30 | 2d 63 61 70 69 74 61 6c |)" . f90|-capital|
|000037f0| 69 7a 65 2d 72 65 67 69 | 6f 6e 2d 6b 65 79 77 6f |ize-regi|on-keywo|
|00003800| 72 64 73 29 20 5b 6d 65 | 6e 75 2d 62 61 72 20 66 |rds) [me|nu-bar f|
|00003810| 39 30 20 66 39 30 2d 63 | 61 70 69 74 61 6c 69 7a |90 f90-c|apitaliz|
|00003820| 65 2d 72 65 67 69 6f 6e | 2d 6b 65 79 77 6f 72 64 |e-region|-keyword|
|00003830| 73 5d 20 28 22 43 61 70 | 69 74 61 6c 69 7a 65 20 |s] ("Cap|italize |
|00003840| 4b 65 79 77 6f 72 64 73 | 20 28 62 75 66 66 65 72 |Keywords| (buffer|
|00003850| 29 22 20 2e 20 66 39 30 | 2d 63 61 70 69 74 61 6c |)" . f90|-capital|
|00003860| 69 7a 65 2d 6b 65 79 77 | 6f 72 64 73 29 20 5b 6d |ize-keyw|ords) [m|
|00003870| 65 6e 75 2d 62 61 72 20 | 66 39 30 20 66 39 30 2d |enu-bar |f90 f90-|
|00003880| 75 70 63 61 73 65 2d 72 | 65 67 69 6f 6e 2d 6b 65 |upcase-r|egion-ke|
|00003890| 79 77 6f 72 64 73 5d 20 | 28 22 55 70 63 61 73 65 |ywords] |("Upcase|
|000038a0| 20 4b 65 79 77 6f 72 64 | 73 20 28 72 65 67 69 6f | Keyword|s (regio|
|000038b0| 6e 29 22 20 2e 20 66 39 | 30 2d 75 70 63 61 73 65 |n)" . f9|0-upcase|
|000038c0| 2d 72 65 67 69 6f 6e 2d | 6b 65 79 77 6f 72 64 73 |-region-|keywords|
|000038d0| 29 20 5b 6d 65 6e 75 2d | 62 61 72 20 66 39 30 20 |) [menu-|bar f90 |
|000038e0| 66 39 30 2d 75 70 63 61 | 73 65 2d 6b 65 79 77 6f |f90-upca|se-keywo|
|000038f0| 72 64 73 5d 20 28 22 55 | 70 63 61 73 65 20 4b 65 |rds] ("U|pcase Ke|
|00003900| 79 77 6f 72 64 73 20 28 | 62 75 66 66 65 72 29 22 |ywords (|buffer)"|
|00003910| 20 2e 20 66 39 30 2d 75 | 70 63 61 73 65 2d 6b 65 | . f90-u|pcase-ke|
|00003920| 79 77 6f 72 64 73 29 20 | 5b 6d 65 6e 75 2d 62 61 |ywords) |[menu-ba|
|00003930| 72 20 66 39 30 20 66 39 | 30 2d 69 6e 73 65 72 74 |r f90 f9|0-insert|
|00003940| 2d 65 6e 64 5d 20 28 22 | 49 6e 73 65 72 74 20 65 |-end] ("|Insert e|
|00003950| 6e 64 22 20 2e 20 66 39 | 30 2d 69 6e 73 65 72 74 |nd" . f9|0-insert|
|00003960| 2d 65 6e 64 29 20 5b 6d | 65 6e 75 2d 62 61 72 20 |-end) [m|enu-bar |
|00003970| 66 39 30 20 66 39 30 2d | 6a 6f 69 6e 2d 6c 69 6e |f90 f90-|join-lin|
|00003980| 65 73 5d 20 28 22 4a 6f | 69 6e 20 77 69 74 68 20 |es] ("Jo|in with |
|00003990| 4e 65 78 74 20 4c 69 6e | 65 22 20 2e 20 66 39 30 |Next Lin|e" . f90|
|000039a0| 2d 6a 6f 69 6e 2d 6c 69 | 6e 65 73 29 20 5b 6d 65 |-join-li|nes) [me|
|000039b0| 6e 75 2d 62 61 72 20 66 | 39 30 20 66 39 30 2d 62 |nu-bar f|90 f90-b|
|000039c0| 72 65 61 6b 2d 6c 69 6e | 65 5d 20 28 22 42 72 65 |reak-lin|e] ("Bre|
|000039d0| 61 6b 20 4c 69 6e 65 20 | 61 74 20 50 6f 69 6e 74 |ak Line |at Point|
|000039e0| 22 20 2e 20 66 39 30 2d | 62 72 65 61 6b 2d 6c 69 |" . f90-|break-li|
|000039f0| 6e 65 29 20 5b 6d 65 6e | 75 2d 62 61 72 20 66 39 |ne) [men|u-bar f9|
|00003a00| 30 20 66 39 30 2d 66 69 | 6c 6c 2d 72 65 67 69 6f |0 f90-fi|ll-regio|
|00003a10| 6e 5d 20 28 22 46 69 6c | 6c 20 52 65 67 69 6f 6e |n] ("Fil|l Region|
|00003a20| 22 20 2e 20 66 39 30 2d | 66 69 6c 6c 2d 72 65 67 |" . f90-|fill-reg|
|00003a30| 69 6f 6e 29 20 5b 6d 65 | 6e 75 2d 62 61 72 20 66 |ion) [me|nu-bar f|
|00003a40| 39 30 20 69 6e 64 65 6e | 74 2d 72 65 67 69 6f 6e |90 inden|t-region|
|00003a50| 5d 20 28 22 49 6e 64 65 | 6e 74 20 52 65 67 69 6f |] ("Inde|nt Regio|
|00003a60| 6e 22 20 2e 20 69 6e 64 | 65 6e 74 2d 72 65 67 69 |n" . ind|ent-regi|
|00003a70| 6f 6e 29 20 5b 6d 65 6e | 75 2d 62 61 72 20 66 39 |on) [men|u-bar f9|
|00003a80| 30 20 66 39 30 2d 63 6f | 6d 6d 65 6e 74 2d 72 65 |0 f90-co|mment-re|
|00003a90| 67 69 6f 6e 5d 20 28 22 | 28 55 6e 29 43 6f 6d 6d |gion] ("|(Un)Comm|
|00003aa0| 65 6e 74 20 52 65 67 69 | 6f 6e 22 20 2e 20 66 39 |ent Regi|on" . f9|
|00003ab0| 30 2d 63 6f 6d 6d 65 6e | 74 2d 72 65 67 69 6f 6e |0-commen|t-region|
|00003ac0| 29 20 5b 6d 65 6e 75 2d | 62 61 72 20 66 39 30 20 |) [menu-|bar f90 |
|00003ad0| 66 39 30 2d 65 6e 64 2d | 6f 66 2d 73 75 62 70 72 |f90-end-|of-subpr|
|00003ae0| 6f 67 72 61 6d 5d 20 28 | 22 45 6e 64 20 6f 66 20 |ogram] (|"End of |
|00003af0| 53 75 62 70 72 6f 67 72 | 61 6d 22 20 2e 20 66 39 |Subprogr|am" . f9|
|00003b00| 30 2d 65 6e 64 2d 6f 66 | 2d 73 75 62 70 72 6f 67 |0-end-of|-subprog|
|00003b10| 72 61 6d 29 20 5b 6d 65 | 6e 75 2d 62 61 72 20 66 |ram) [me|nu-bar f|
|00003b20| 39 30 20 66 39 30 2d 62 | 65 67 69 6e 6e 69 6e 67 |90 f90-b|eginning|
|00003b30| 2d 6f 66 2d 73 75 62 70 | 72 6f 67 72 61 6d 5d 20 |-of-subp|rogram] |
|00003b40| 28 22 42 65 67 69 6e 6e | 69 6e 67 20 6f 66 20 53 |("Beginn|ing of S|
|00003b50| 75 62 70 72 6f 67 72 61 | 6d 22 20 2e 20 66 39 30 |ubprogra|m" . f90|
|00003b60| 2d 62 65 67 69 6e 6e 69 | 6e 67 2d 6f 66 2d 73 75 |-beginni|ng-of-su|
|00003b70| 62 70 72 6f 67 72 61 6d | 29 20 5b 6d 65 6e 75 2d |bprogram|) [menu-|
|00003b80| 62 61 72 20 66 39 30 20 | 66 39 30 2d 6d 61 72 6b |bar f90 |f90-mark|
|00003b90| 2d 73 75 62 70 72 6f 67 | 72 61 6d 5d 20 28 22 4d |-subprog|ram] ("M|
|00003ba0| 61 72 6b 20 53 75 62 70 | 72 6f 67 72 61 6d 22 20 |ark Subp|rogram" |
|00003bb0| 2e 20 66 39 30 2d 6d 61 | 72 6b 2d 73 75 62 70 72 |. f90-ma|rk-subpr|
|00003bc0| 6f 67 72 61 6d 29 20 5b | 6d 65 6e 75 2d 62 61 72 |ogram) [|menu-bar|
|00003bd0| 20 66 39 30 20 66 39 30 | 2d 69 6e 64 65 6e 74 2d | f90 f90|-indent-|
|00003be0| 73 75 62 70 72 6f 67 72 | 61 6d 5d 20 28 22 49 6e |subprogr|am] ("In|
|00003bf0| 64 65 6e 74 20 53 75 62 | 70 72 6f 67 72 61 6d 22 |dent Sub|program"|
|00003c00| 20 2e 20 66 39 30 2d 69 | 6e 64 65 6e 74 2d 73 75 | . f90-i|ndent-su|
|00003c10| 62 70 72 6f 67 72 61 6d | 29 20 22 5c 5c 28 62 6c |bprogram|) "\\(bl|
|00003c20| 6f 63 6b 5b 20 09 5d 2a | 64 61 74 61 5c 5c 7c 64 |ock[ .]*|data\\|d|
|00003c30| 6f 5c 5c 7c 69 66 5c 5c | 7c 69 6e 74 65 72 66 61 |o\\|if\\||interfa|
|00003c40| 63 65 5c 5c 7c 66 75 6e | 63 74 69 6f 6e 5c 5c 7c |ce\\|fun|ction\\||
|00003c50| 6d 6f 64 75 6c 65 5c 5c | 7c 70 72 6f 67 72 61 6d |module\\||program|
|00003c60| 5c 5c 7c 73 65 6c 65 63 | 74 5c 5c 7c 73 75 62 72 |\\|selec|t\\|subr|
|00003c70| 6f 75 74 69 6e 65 5c 5c | 7c 74 79 70 65 5c 5c 7c |outine\\||type\\||
|00003c80| 77 68 65 72 65 5c 5c 7c | 66 6f 72 61 6c 6c 5c 5c |where\\||forall\\|
|00003c90| 29 5c 5c 3e 22 20 66 39 | 30 2d 62 6c 6f 63 6b 73 |)\\>" f9|0-blocks|
|00003ca0| 2d 72 65 20 22 5c 5c 28 | 70 72 6f 67 72 61 6d 5c |-re "\\(|program\|
|00003cb0| 5c 7c 6d 6f 64 75 6c 65 | 5c 5c 7c 73 75 62 72 6f |\|module|\\|subro|
|00003cc0| 75 74 69 6e 65 5c 5c 7c | 66 75 6e 63 74 69 6f 6e |utine\\||function|
|00003cd0| 5c 5c 29 22 20 66 39 30 | 2d 70 72 6f 67 72 61 6d |\\)" f90|-program|
|00003ce0| 2d 62 6c 6f 63 6b 2d 72 | 65 20 22 5c 5c 28 65 6c |-block-r|e "\\(el|
|00003cf0| 73 65 5c 5c 28 5b 20 09 | 5d 2a 69 66 5c 5c 7c 77 |se\\([ .|]*if\\|w|
|00003d00| 68 65 72 65 5c 5c 29 3f | 5c 5c 7c 63 61 73 65 5b |here\\)?|\\|case[|
|00003d10| 20 09 5d 2a 5c 5c 28 64 | 65 66 61 75 6c 74 5c 5c | .]*\\(d|efault\\|
|00003d20| 7c 28 5c 5c 29 5c 5c 29 | 22 20 66 39 30 2d 65 6c ||(\\)\\)|" f90-el|
|00003d30| 73 65 2d 6c 69 6b 65 2d | 72 65 20 22 65 6e 64 5b |se-like-|re "end[|
|00003d40| 20 09 5d 2a 5c 5c 28 69 | 66 5c 5c 7c 73 65 6c 65 | .]*\\(i|f\\|sele|
|00003d50| 63 74 5c 5c 7c 77 68 65 | 72 65 5c 5c 7c 66 6f 72 |ct\\|whe|re\\|for|
|00003d60| 61 6c 6c 5c 5c 29 5c 5c | 3e 22 20 66 39 30 2d 65 |all\\)\\|>" f90-e|
|00003d70| 6e 64 2d 69 66 2d 72 65 | 20 22 65 6e 64 5b 20 09 |nd-if-re| "end[ .|
|00003d80| 5d 2a 5c 5c 28 74 79 70 | 65 5c 5c 7c 69 6e 74 65 |]*\\(typ|e\\|inte|
|00003d90| 72 66 61 63 65 5c 5c 7c | 62 6c 6f 63 6b 5b 20 09 |rface\\||block[ .|
|00003da0| 5d 2a 64 61 74 61 5c 5c | 29 22 20 66 39 30 2d 65 |]*data\\|)" f90-e|
|00003db0| 6e 64 2d 74 79 70 65 2d | 72 65 20 22 5c 5c 3c 5c |nd-type-|re "\\<\|
|00003dc0| 5c 28 74 79 70 65 5c 5c | 29 5b 20 09 5d 2a 5c 5c |\(type\\|)[ .]*\\|
|00003dd0| 28 2c 2e 2a 3a 3a 5b 20 | 09 5d 2a 5c 5c 7c 5b 20 |(,.*::[ |.]*\\|[ |
|00003de0| 09 5d 2b 5c 5c 29 5c 5c | 28 5c 5c 73 77 2b 5c 5c |.]+\\)\\|(\\sw+\\|
|00003df0| 29 22 20 66 39 30 2d 74 | 79 70 65 2d 64 65 66 2d |)" f90-t|ype-def-|
|00003e00| 72 65 20 22 5c 5c 28 5c | 5c 2a 5c 5c 2a 5c 5c 7c |re "\\(\|\*\\*\\||
|00003e10| 2f 2f 5c 5c 7c 3d 3e 5c | 5c 29 22 20 66 39 30 2d |//\\|=>\|\)" f90-|
|00003e20| 6e 6f 2d 62 72 65 61 6b | 2d 72 65 20 66 39 30 2d |no-break|-re f90-|
|00003e30| 63 61 63 68 65 2d 70 6f | 73 69 74 69 6f 6e 20 6e |cache-po|sition n|
|00003e40| 69 6c 20 6d 61 6b 65 2d | 76 61 72 69 61 62 6c 65 |il make-|variable|
|00003e50| 2d 62 75 66 66 65 72 2d | 6c 6f 63 61 6c 5d 20 36 |-buffer-|local] 6|
|00003e60| 29 0a 23 40 34 30 20 69 | 6d 65 6e 75 20 67 65 6e |).#@40 i|menu gen|
|00003e70| 65 72 69 63 20 65 78 70 | 72 65 73 73 69 6f 6e 20 |eric exp|ression |
|00003e80| 66 6f 72 20 46 39 30 20 | 6d 6f 64 65 2e 1f 0a 28 |for F90 |mode...(|
|00003e90| 64 65 66 76 61 72 20 66 | 39 30 2d 69 6d 65 6e 75 |defvar f|90-imenu|
|00003ea0| 2d 67 65 6e 65 72 69 63 | 2d 65 78 70 72 65 73 73 |-generic|-express|
|00003eb0| 69 6f 6e 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ion (byt|e-code "|
|00003ec0| c0 c1 c2 c3 c4 c5 c6 c7 | b0 08 c8 c9 ca cb 46 42 |........|......FB|
|00003ed0| 87 22 20 5b 22 5e 5b 20 | 09 30 2d 39 5d 2a 5c 5c |." ["^[ |.0-9]*\\|
|00003ee0| 28 22 20 22 70 72 6f 67 | 72 61 6d 5b 20 09 5d 2b |(" "prog|ram[ .]+|
|00003ef0| 5c 5c 28 5c 5c 73 77 2b | 5c 5c 29 5c 5c 7c 22 20 |\\(\\sw+|\\)\\|" |
|00003f00| 22 6d 6f 64 75 6c 65 5b | 20 09 5d 2b 5c 5c 28 5c |"module[| .]+\\(\|
|00003f10| 5c 73 77 2b 5c 5c 29 5b | 20 09 5d 2a 5c 5c 28 21 |\sw+\\)[| .]*\\(!|
|00003f20| 5c 5c 7c 24 5c 5c 29 5c | 5c 7c 22 20 22 5c 5c 28 |\\|$\\)\|\|" "\\(|
|00003f30| 70 75 72 65 5c 5c 7c 72 | 65 63 75 72 73 69 76 65 |pure\\|r|ecursive|
|00003f40| 5c 5c 7c 65 78 74 72 69 | 6e 73 69 63 28 5b 5e 29 |\\|extri|nsic([^)|
|00003f50| 5d 2b 29 5c 5c 29 3f 5b | 20 09 5d 2a 22 20 22 73 |]+)\\)?[| .]*" "s|
|00003f60| 75 62 72 6f 75 74 69 6e | 65 5b 20 09 5d 2b 5c 5c |ubroutin|e[ .]+\\|
|00003f70| 28 5c 5c 73 77 2b 5c 5c | 29 5c 5c 7c 22 20 22 5c |(\\sw+\\|)\\|" "\|
|00003f80| 5c 28 5b 5e 21 5d 2a 5c | 5c 28 5b 5e 65 21 5d 2e |\([^!]*\|\([^e!].|
|00003f90| 5b 5e 20 09 21 5d 5c 5c | 7c 2e 5b 5e 6e 21 5d 5b |[^ .!]\\||.[^n!][|
|00003fa0| 5e 20 09 21 5d 5c 5c 7c | 2e 2e 5b 5e 64 20 09 21 |^ .!]\\||..[^d .!|
|00003fb0| 5d 5c 5c 29 22 20 22 5c | 5c 7c 5b 5e 21 5d 3f 5b |]\\)" "\|\|[^!]?[|
|00003fc0| 5e 21 5d 3f 5c 5c 29 5b | 20 09 5d 2a 66 75 6e 63 |^!]?\\)[| .]*func|
|00003fd0| 74 69 6f 6e 5b 20 09 5d | 2b 5c 5c 28 5c 5c 73 77 |tion[ .]|+\\(\\sw|
|00003fe0| 2b 5c 5c 29 22 20 22 5c | 5c 29 22 20 32 20 33 20 |+\\)" "\|\)" 2 3 |
|00003ff0| 36 20 39 5d 20 38 29 20 | 28 23 24 20 2e 20 31 35 |6 9] 8) |(#$ . 15|
|00004000| 39 37 35 29 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |975)).(b|yte-code|
|00004010| 20 22 c0 c1 21 84 08 00 | c2 11 c1 0b 42 13 09 84 | "..!...|....B...|
|00004020| f1 01 5c 66 1d c6 c1 c2 | 5c 22 88 c7 09 c8 c9 c2 |..\f....|\"......|
|00004030| 24 88 c7 09 ca cb c2 24 | 88 c7 09 cc cd c2 24 88 |$......$|......$.|
|00004040| c7 09 ce cf c2 24 88 c7 | 09 d0 d1 c2 24 88 c7 09 |.....$..|....$...|
|00004050| d2 d3 c2 24 88 c7 09 d4 | d5 c2 24 88 c7 09 d6 d7 |...$....|..$.....|
|00004060| c2 24 88 c7 09 d8 d9 c2 | 24 88 c7 09 da db c2 24 |.$......|$......$|
|00004070| 88 c7 09 dc dd c2 24 88 | c7 09 de df c2 24 88 c7 |......$.|.....$..|
|00004080| 09 e0 e1 c2 24 88 c7 09 | e2 e3 c2 24 88 c7 09 e4 |....$...|...$....|
|00004090| e5 c2 24 88 c7 09 e6 e7 | c2 24 88 c7 09 e8 e9 c2 |..$.....|.$......|
|000040a0| 24 88 c7 09 ea eb c2 24 | 88 c7 09 ec ed c2 24 88 |$......$|......$.|
|000040b0| c7 09 ee ef c2 24 88 c7 | 09 f0 f1 c2 24 88 c7 09 |.....$..|....$...|
|000040c0| f2 f3 c2 24 88 c7 09 f4 | f5 c2 24 88 c7 09 f6 f7 |...$....|..$.....|
|000040d0| c2 24 88 c7 09 f8 f9 c2 | 24 88 c7 09 fa fb c2 24 |.$......|$......$|
|000040e0| 88 c7 09 fc fd c2 24 88 | c7 09 fe ff c2 24 88 c7 |......$.|.....$..|
|000040f0| 09 81 40 00 81 41 00 c2 | 24 88 c7 09 81 42 00 81 |..@..A..|$....B..|
|00004100| 43 00 c2 24 88 c7 09 81 | 44 00 81 45 00 c2 24 88 |C..$....|D..E..$.|
|00004110| c7 09 81 46 00 81 47 00 | c2 24 88 c7 09 81 48 00 |...F..G.|.$....H.|
|00004120| 81 49 00 c2 24 88 c7 09 | 81 4a 00 81 4b 00 c2 24 |.I..$...|.J..K..$|
|00004130| 88 c7 09 81 4c 00 81 4d | 00 c2 24 88 c7 09 81 4e |....L..M|..$....N|
|00004140| 00 81 4f 00 c2 24 88 c7 | 09 81 50 00 81 51 00 c2 |..O..$..|..P..Q..|
|00004150| 24 88 c7 09 81 52 00 81 | 53 00 c2 24 88 c7 09 81 |$....R..|S..$....|
|00004160| 54 00 81 55 00 c2 24 88 | c7 09 81 56 00 81 57 00 |T..U..$.|...V..W.|
|00004170| c2 24 88 c7 09 81 58 00 | 81 59 00 c2 24 88 c7 09 |.$....X.|.Y..$...|
|00004180| 81 5a 00 81 5b 00 c2 24 | 88 c7 09 81 5c 5c 00 81 |.Z..[..$|....\\..|
|00004190| 5d 00 c2 24 88 c7 09 81 | 5e 00 81 5f 00 c2 24 88 |]..$....|^.._..$.|
|000041a0| c7 09 81 60 00 81 61 00 | c2 24 88 c7 09 81 62 00 |...`..a.|.$....b.|
|000041b0| 81 63 00 c2 24 88 c7 09 | 81 64 00 81 65 00 c2 24 |.c..$...|.d..e..$|
|000041c0| 88 c7 09 81 66 00 81 67 | 00 c2 24 88 c7 09 81 68 |....f..g|..$....h|
|000041d0| 00 81 69 00 c2 24 88 c7 | 09 81 6a 00 81 6b 00 c2 |..i..$..|..j..k..|
|000041e0| 24 88 c7 09 81 6c 00 81 | 6d 00 c2 24 88 c7 09 81 |$....l..|m..$....|
|000041f0| 6e 00 81 6f 00 c2 24 88 | c7 09 81 70 00 81 71 00 |n..o..$.|...p..q.|
|00004200| c2 24 88 0d 14 29 c2 87 | 22 20 5b 62 6f 75 6e 64 |.$...)..|" [bound|
|00004210| 70 20 66 39 30 2d 6d 6f | 64 65 2d 61 62 62 72 65 |p f90-mo|de-abbre|
|00004220| 76 2d 74 61 62 6c 65 20 | 6e 69 6c 20 63 75 72 72 |v-table |nil curr|
|00004230| 65 6e 74 2d 6c 6f 61 64 | 2d 6c 69 73 74 20 61 62 |ent-load|-list ab|
|00004240| 62 72 65 76 73 2d 63 68 | 61 6e 67 65 64 20 61 63 |brevs-ch|anged ac|
|00004250| 20 64 65 66 69 6e 65 2d | 61 62 62 72 65 76 2d 74 | define-|abbrev-t|
|00004260| 61 62 6c 65 20 64 65 66 | 69 6e 65 2d 61 62 62 72 |able def|ine-abbr|
|00004270| 65 76 20 22 60 61 6c 22 | 20 22 61 6c 6c 6f 63 61 |ev "`al"| "alloca|
|00004280| 74 65 22 20 22 60 61 62 | 22 20 22 61 6c 6c 6f 63 |te" "`ab|" "alloc|
|00004290| 61 74 61 62 6c 65 22 20 | 22 60 61 73 22 20 22 61 |atable" |"`as" "a|
|000042a0| 73 73 69 67 6e 6d 65 6e | 74 22 20 22 60 62 61 22 |ssignmen|t" "`ba"|
|000042b0| 20 22 62 61 63 6b 73 70 | 61 63 65 22 20 22 60 62 | "backsp|ace" "`b|
|000042c0| 64 22 20 22 62 6c 6f 63 | 6b 20 64 61 74 61 22 20 |d" "bloc|k data" |
|000042d0| 22 60 63 22 20 22 63 68 | 61 72 61 63 74 65 72 22 |"`c" "ch|aracter"|
|000042e0| 20 22 60 63 6c 22 20 22 | 63 6c 6f 73 65 22 20 22 | "`cl" "|close" "|
|000042f0| 60 63 6d 22 20 22 63 6f | 6d 6d 6f 6e 22 20 22 60 |`cm" "co|mmon" "`|
|00004300| 63 78 22 20 22 63 6f 6d | 70 6c 65 78 22 20 22 60 |cx" "com|plex" "`|
|00004310| 63 6e 22 20 22 63 6f 6e | 74 61 69 6e 73 22 20 22 |cn" "con|tains" "|
|00004320| 60 63 79 22 20 22 63 79 | 63 6c 65 22 20 22 60 64 |`cy" "cy|cle" "`d|
|00004330| 65 22 20 22 64 65 61 6c | 6c 6f 63 61 74 65 22 20 |e" "deal|locate" |
|00004340| 22 60 64 66 22 20 22 64 | 65 66 69 6e 65 22 20 22 |"`df" "d|efine" "|
|00004350| 60 64 69 22 20 22 64 69 | 6d 65 6e 73 69 6f 6e 22 |`di" "di|mension"|
|00004360| 20 22 60 64 77 22 20 22 | 64 6f 20 77 68 69 6c 65 | "`dw" "|do while|
|00004370| 22 20 22 60 65 6c 22 20 | 22 65 6c 73 65 22 20 22 |" "`el" |"else" "|
|00004380| 60 65 6c 69 22 20 22 65 | 6c 73 65 20 69 66 22 20 |`eli" "e|lse if" |
|00004390| 22 60 65 6c 77 22 20 22 | 65 6c 73 65 77 68 65 72 |"`elw" "|elsewher|
|000043a0| 65 22 20 22 60 65 71 22 | 20 22 65 71 75 69 76 61 |e" "`eq"| "equiva|
|000043b0| 6c 65 6e 63 65 22 20 22 | 60 65 78 22 20 22 65 78 |lence" "|`ex" "ex|
|000043c0| 74 65 72 6e 61 6c 22 20 | 22 60 65 79 22 20 22 65 |ternal" |"`ey" "e|
|000043d0| 6e 74 72 79 22 20 22 60 | 66 6c 22 20 22 66 6f 72 |ntry" "`|fl" "for|
|000043e0| 61 6c 6c 22 20 22 60 66 | 6f 22 20 22 66 6f 72 6d |all" "`f|o" "form|
|000043f0| 61 74 22 20 22 60 66 75 | 22 20 22 66 75 6e 63 74 |at" "`fu|" "funct|
|00004400| 69 6f 6e 22 20 22 60 66 | 61 22 20 22 2e 66 61 6c |ion" "`f|a" ".fal|
|00004410| 73 65 2e 22 20 22 60 69 | 6d 22 20 22 69 6d 70 6c |se." "`i|m" "impl|
|00004420| 69 63 69 74 20 6e 6f 6e | 65 22 20 22 60 69 6e 20 |icit non|e" "`in |
|00004430| 22 20 22 69 6e 63 6c 75 | 64 65 22 20 22 60 69 22 |" "inclu|de" "`i"|
|00004440| 20 22 69 6e 74 65 67 65 | 72 22 20 22 60 69 74 22 | "intege|r" "`it"|
|00004450| 20 22 69 6e 74 65 6e 74 | 22 20 22 60 69 66 22 20 | "intent|" "`if" |
|00004460| 22 69 6e 74 65 72 66 61 | 63 65 22 20 22 60 6c 6f |"interfa|ce" "`lo|
|00004470| 22 20 22 6c 6f 67 69 63 | 61 6c 22 20 22 60 6d 6f |" "logic|al" "`mo|
|00004480| 22 20 22 6d 6f 64 75 6c | 65 22 20 22 60 6e 61 22 |" "modul|e" "`na"|
|00004490| 20 22 6e 61 6d 65 6c 69 | 73 74 22 20 22 60 6e 75 | "nameli|st" "`nu|
|000044a0| 22 20 22 6e 75 6c 6c 69 | 66 79 22 20 22 60 6f 70 |" "nulli|fy" "`op|
|000044b0| 22 20 22 6f 70 74 69 6f | 6e 61 6c 22 20 22 60 70 |" "optio|nal" "`p|
|000044c0| 61 22 20 22 70 61 72 61 | 6d 65 74 65 72 22 20 22 |a" "para|meter" "|
|000044d0| 60 70 6f 22 20 22 70 6f | 69 6e 74 65 72 22 20 22 |`po" "po|inter" "|
|000044e0| 60 70 72 22 20 22 70 72 | 69 6e 74 22 20 22 60 70 |`pr" "pr|int" "`p|
|000044f0| 69 22 20 22 70 72 69 76 | 61 74 65 22 20 22 60 70 |i" "priv|ate" "`p|
|00004500| 6d 22 20 22 70 72 6f 67 | 72 61 6d 22 20 22 60 70 |m" "prog|ram" "`p|
|00004510| 75 22 20 22 70 75 62 6c | 69 63 22 20 22 60 72 22 |u" "publ|ic" "`r"|
|00004520| 20 22 72 65 61 6c 22 20 | 22 60 72 63 22 20 22 72 | "real" |"`rc" "r|
|00004530| 65 63 75 72 73 69 76 65 | 22 20 22 60 72 74 22 20 |ecursive|" "`rt" |
|00004540| 22 72 65 74 75 72 6e 22 | 20 22 60 72 77 22 20 22 |"return"| "`rw" "|
|00004550| 72 65 77 69 6e 64 22 20 | 22 60 73 65 22 20 22 73 |rewind" |"`se" "s|
|00004560| 65 6c 65 63 74 22 20 22 | 60 73 71 22 20 22 73 65 |elect" "|`sq" "se|
|00004570| 71 75 65 6e 63 65 22 20 | 22 60 73 75 22 20 22 73 |quence" |"`su" "s|
|00004580| 75 62 72 6f 75 74 69 6e | 65 22 20 22 60 74 61 22 |ubroutin|e" "`ta"|
|00004590| 20 22 74 61 72 67 65 74 | 22 20 22 60 74 72 22 20 | "target|" "`tr" |
|000045a0| 22 2e 74 72 75 65 2e 22 | 20 22 60 74 22 20 22 74 |".true."| "`t" "t|
|000045b0| 79 70 65 22 20 22 60 77 | 68 22 20 22 77 68 65 72 |ype" "`w|h" "wher|
|000045c0| 65 22 20 22 60 77 72 22 | 20 22 77 72 69 74 65 22 |e" "`wr"| "write"|
|000045d0| 5d 20 35 29 0a 23 40 32 | 33 32 30 20 4d 61 6a 6f |] 5).#@2|320 Majo|
|000045e0| 72 20 6d 6f 64 65 20 66 | 6f 72 20 65 64 69 74 69 |r mode f|or editi|
|000045f0| 6e 67 20 46 6f 72 74 72 | 61 6e 20 39 30 20 63 6f |ng Fortr|an 90 co|
|00004600| 64 65 20 69 6e 20 66 72 | 65 65 20 66 6f 72 6d 61 |de in fr|ee forma|
|00004610| 74 2e 0a 0a 5c 5b 66 39 | 30 2d 69 6e 64 65 6e 74 |t...\[f9|0-indent|
|00004620| 2d 6e 65 77 2d 6c 69 6e | 65 5d 20 63 6f 72 72 65 |-new-lin|e] corre|
|00004630| 63 74 73 20 63 75 72 72 | 65 6e 74 20 69 6e 64 65 |cts curr|ent inde|
|00004640| 6e 74 61 74 69 6f 6e 20 | 61 6e 64 20 63 72 65 61 |ntation |and crea|
|00004650| 74 65 73 20 6e 65 77 20 | 69 6e 64 65 6e 74 65 64 |tes new |indented|
|00004660| 20 6c 69 6e 65 2e 0a 5c | 5b 66 39 30 2d 69 6e 64 | line..\|[f90-ind|
|00004670| 65 6e 74 2d 6c 69 6e 65 | 5d 20 69 6e 64 65 6e 74 |ent-line|] indent|
|00004680| 73 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 6c 69 |s the cu|rrent li|
|00004690| 6e 65 20 63 6f 72 72 65 | 63 74 6c 79 2e 20 0a 5c |ne corre|ctly. .\|
|000046a0| 5b 66 39 30 2d 69 6e 64 | 65 6e 74 2d 73 75 62 70 |[f90-ind|ent-subp|
|000046b0| 72 6f 67 72 61 6d 5d 20 | 69 6e 64 65 6e 74 73 20 |rogram] |indents |
|000046c0| 74 68 65 20 63 75 72 72 | 65 6e 74 20 73 75 62 70 |the curr|ent subp|
|000046d0| 72 6f 67 72 61 6d 2e 20 | 0a 0a 54 79 70 65 20 60 |rogram. |..Type `|
|000046e0| 3f 20 6f 72 20 60 5c 5b | 68 65 6c 70 2d 63 6f 6d |? or `\[|help-com|
|000046f0| 6d 61 6e 64 5d 20 74 6f | 20 64 69 73 70 6c 61 79 |mand] to| display|
|00004700| 20 61 20 6c 69 73 74 20 | 6f 66 20 62 75 69 6c 74 | a list |of built|
|00004710| 2d 69 6e 20 61 62 62 72 | 65 76 73 20 66 6f 72 20 |-in abbr|evs for |
|00004720| 46 39 30 20 6b 65 79 77 | 6f 72 64 73 2e 0a 0a 4b |F90 keyw|ords...K|
|00004730| 65 79 20 64 65 66 69 6e | 69 74 69 6f 6e 73 3a 0a |ey defin|itions:.|
|00004740| 5c 7b 66 39 30 2d 6d 6f | 64 65 2d 6d 61 70 7d 0a |\{f90-mo|de-map}.|
|00004750| 0a 56 61 72 69 61 62 6c | 65 73 20 63 6f 6e 74 72 |.Variabl|es contr|
|00004760| 6f 6c 6c 69 6e 67 20 69 | 6e 64 65 6e 74 61 74 69 |olling i|ndentati|
|00004770| 6f 6e 20 73 74 79 6c 65 | 20 61 6e 64 20 65 78 74 |on style| and ext|
|00004780| 72 61 20 66 65 61 74 75 | 72 65 73 3a 0a 0a 20 66 |ra featu|res:.. f|
|00004790| 39 30 2d 64 6f 2d 69 6e | 64 65 6e 74 0a 20 20 20 |90-do-in|dent. |
|000047a0| 20 45 78 74 72 61 20 69 | 6e 64 65 6e 74 61 74 69 | Extra i|ndentati|
|000047b0| 6f 6e 20 77 69 74 68 69 | 6e 20 64 6f 20 62 6c 6f |on withi|n do blo|
|000047c0| 63 6b 73 2e 20 20 28 64 | 65 66 61 75 6c 74 20 33 |cks. (d|efault 3|
|000047d0| 29 0a 20 66 39 30 2d 69 | 66 2d 69 6e 64 65 6e 74 |). f90-i|f-indent|
|000047e0| 0a 20 20 20 20 45 78 74 | 72 61 20 69 6e 64 65 6e |. Ext|ra inden|
|000047f0| 74 61 74 69 6f 6e 20 77 | 69 74 68 69 6e 20 69 66 |tation w|ithin if|
|00004800| 2f 73 65 6c 65 63 74 20 | 63 61 73 65 2f 77 68 65 |/select |case/whe|
|00004810| 72 65 2f 66 6f 72 61 6c | 6c 20 62 6c 6f 63 6b 73 |re/foral|l blocks|
|00004820| 2e 20 28 64 65 66 61 75 | 6c 74 20 33 29 0a 20 66 |. (defau|lt 3). f|
|00004830| 39 30 2d 74 79 70 65 2d | 69 6e 64 65 6e 74 0a 20 |90-type-|indent. |
|00004840| 20 20 20 45 78 74 72 61 | 20 69 6e 64 65 6e 74 61 | Extra| indenta|
|00004850| 74 69 6f 6e 20 77 69 74 | 68 69 6e 20 74 79 70 65 |tion wit|hin type|
|00004860| 2f 69 6e 74 65 72 66 61 | 63 65 2f 62 6c 6f 63 6b |/interfa|ce/block|
|00004870| 2d 64 61 74 61 20 62 6c | 6f 63 6b 73 2e 20 20 28 |-data bl|ocks. (|
|00004880| 64 65 66 61 75 6c 74 20 | 33 29 0a 20 66 39 30 2d |default |3). f90-|
|00004890| 70 72 6f 67 72 61 6d 2d | 69 6e 64 65 6e 74 0a 20 |program-|indent. |
|000048a0| 20 20 20 45 78 74 72 61 | 20 69 6e 64 65 6e 74 61 | Extra| indenta|
|000048b0| 74 69 6f 6e 20 77 69 74 | 68 69 6e 20 70 72 6f 67 |tion wit|hin prog|
|000048c0| 72 61 6d 2f 6d 6f 64 75 | 6c 65 2f 73 75 62 72 6f |ram/modu|le/subro|
|000048d0| 75 74 69 6e 65 2f 66 75 | 6e 63 74 69 6f 6e 20 62 |utine/fu|nction b|
|000048e0| 6c 6f 63 6b 73 2e 0a 20 | 20 20 20 20 20 28 64 65 |locks.. | (de|
|000048f0| 66 61 75 6c 74 20 32 29 | 0a 20 66 39 30 2d 63 6f |fault 2)|. f90-co|
|00004900| 6e 74 69 6e 75 61 74 69 | 6f 6e 2d 69 6e 64 65 6e |ntinuati|on-inden|
|00004910| 74 0a 20 20 20 20 45 78 | 74 72 61 20 69 6e 64 65 |t. Ex|tra inde|
|00004920| 6e 74 61 74 69 6f 6e 20 | 61 70 70 6c 69 65 64 20 |ntation |applied |
|00004930| 74 6f 20 63 6f 6e 74 69 | 6e 75 61 74 69 6f 6e 20 |to conti|nuation |
|00004940| 6c 69 6e 65 73 2e 20 20 | 28 64 65 66 61 75 6c 74 |lines. |(default|
|00004950| 20 35 29 0a 20 66 39 30 | 2d 63 6f 6d 6d 65 6e 74 | 5). f90|-comment|
|00004960| 2d 72 65 67 69 6f 6e 0a | 20 20 20 20 53 74 72 69 |-region.| Stri|
|00004970| 6e 67 20 69 6e 73 65 72 | 74 65 64 20 62 79 20 5c |ng inser|ted by \|
|00004980| 5b 66 39 30 2d 63 6f 6d | 6d 65 6e 74 2d 72 65 67 |[f90-com|ment-reg|
|00004990| 69 6f 6e 5d 20 61 74 20 | 73 74 61 72 74 20 6f 66 |ion] at |start of|
|000049a0| 20 65 61 63 68 20 6c 69 | 6e 65 20 69 6e 20 0a 20 | each li|ne in . |
|000049b0| 20 20 20 72 65 67 69 6f | 6e 2e 20 20 28 64 65 66 | regio|n. (def|
|000049c0| 61 75 6c 74 20 22 21 21 | 21 24 22 29 0a 20 66 39 |ault "!!|!$"). f9|
|000049d0| 30 2d 69 6e 64 65 6e 74 | 65 64 2d 63 6f 6d 6d 65 |0-indent|ed-comme|
|000049e0| 6e 74 2d 72 65 0a 20 20 | 20 20 52 65 67 65 78 70 |nt-re. | Regexp|
|000049f0| 20 64 65 74 65 72 6d 69 | 6e 69 6e 67 20 74 68 65 | determi|ning the|
|00004a00| 20 74 79 70 65 20 6f 66 | 20 63 6f 6d 6d 65 6e 74 | type of| comment|
|00004a10| 20 74 6f 20 62 65 20 69 | 6e 74 65 6e 64 65 64 20 | to be i|ntended |
|00004a20| 6c 69 6b 65 20 63 6f 64 | 65 2e 0a 20 20 20 20 28 |like cod|e.. (|
|00004a30| 64 65 66 61 75 6c 74 20 | 22 21 22 29 0a 20 66 39 |default |"!"). f9|
|00004a40| 30 2d 64 69 72 65 63 74 | 69 76 65 2d 63 6f 6d 6d |0-direct|ive-comm|
|00004a50| 65 6e 74 2d 72 65 0a 20 | 20 20 20 52 65 67 65 78 |ent-re. | Regex|
|00004a60| 70 20 6f 66 20 63 6f 6d | 6d 65 6e 74 2d 6c 69 6b |p of com|ment-lik|
|00004a70| 65 20 64 69 72 65 63 74 | 69 76 65 20 6c 69 6b 65 |e direct|ive like|
|00004a80| 20 22 21 48 50 46 5c 5c | 24 22 2c 20 6e 6f 74 20 | "!HPF\\|$", not |
|00004a90| 74 6f 20 62 65 20 69 6e | 64 65 6e 74 65 64 2e 0a |to be in|dented..|
|00004aa0| 20 20 20 20 28 64 65 66 | 61 75 6c 74 20 22 21 68 | (def|ault "!h|
|00004ab0| 70 66 5c 5c 24 22 29 0a | 20 66 39 30 2d 62 72 65 |pf\\$").| f90-bre|
|00004ac0| 61 6b 2d 64 65 6c 69 6d | 69 74 65 72 73 0a 20 20 |ak-delim|iters. |
|00004ad0| 20 20 52 65 67 65 78 70 | 20 68 6f 6c 64 69 6e 67 | Regexp| holding|
|00004ae0| 20 6c 69 73 74 20 6f 66 | 20 64 65 6c 69 6d 69 74 | list of| delimit|
|00004af0| 65 72 73 20 61 74 20 77 | 68 69 63 68 20 6c 69 6e |ers at w|hich lin|
|00004b00| 65 73 20 6d 61 79 20 62 | 65 20 62 72 6f 6b 65 6e |es may b|e broken|
|00004b10| 2e 0a 20 20 20 20 28 64 | 65 66 61 75 6c 74 20 22 |.. (d|efault "|
|00004b20| 5b 2d 2b 2a 2f 3e 3c 3d | 2c 25 20 5c 74 5d 22 29 |[-+*/><=|,% \t]")|
|00004b30| 0a 20 66 39 30 2d 62 72 | 65 61 6b 2d 62 65 66 6f |. f90-br|eak-befo|
|00004b40| 72 65 2d 64 65 6c 69 6d | 69 74 65 72 73 0a 20 20 |re-delim|iters. |
|00004b50| 20 20 4e 6f 6e 2d 6e 69 | 6c 20 63 61 75 73 65 73 | Non-ni|l causes|
|00004b60| 20 60 66 39 30 2d 64 6f | 2d 61 75 74 6f 2d 66 69 | `f90-do|-auto-fi|
|00004b70| 6c 6c 27 20 74 6f 20 62 | 72 65 61 6b 20 6c 69 6e |ll' to b|reak lin|
|00004b80| 65 73 20 62 65 66 6f 72 | 65 20 64 65 6c 69 6d 69 |es befor|e delimi|
|00004b90| 74 65 72 73 2e 0a 20 20 | 20 20 28 64 65 66 61 75 |ters.. | (defau|
|00004ba0| 6c 74 20 74 29 0a 20 66 | 39 30 2d 62 65 67 69 6e |lt t). f|90-begin|
|00004bb0| 6e 69 6e 67 2d 61 6d 70 | 65 72 73 61 6e 64 20 0a |ning-amp|ersand .|
|00004bc0| 20 20 20 20 41 75 74 6f | 6d 61 74 69 63 20 69 6e | Auto|matic in|
|00004bd0| 73 65 72 74 69 6f 6e 20 | 6f 66 20 26 20 61 74 20 |sertion |of & at |
|00004be0| 62 65 67 69 6e 6e 69 6e | 67 20 6f 66 20 63 6f 6e |beginnin|g of con|
|00004bf0| 74 69 6e 75 61 74 69 6f | 6e 20 6c 69 6e 65 73 2e |tinuatio|n lines.|
|00004c00| 20 28 64 65 66 61 75 6c | 74 20 74 29 0a 20 66 39 | (defaul|t t). f9|
|00004c10| 30 2d 73 6d 61 72 74 2d | 65 6e 64 20 0a 20 20 20 |0-smart-|end . |
|00004c20| 20 46 72 6f 6d 20 61 6e | 20 45 4e 44 20 73 74 61 | From an| END sta|
|00004c30| 74 65 6d 65 6e 74 2c 20 | 63 68 65 63 6b 20 61 6e |tement, |check an|
|00004c40| 64 20 66 69 6c 6c 20 74 | 68 65 20 65 6e 64 20 75 |d fill t|he end u|
|00004c50| 73 69 6e 67 20 6d 61 74 | 63 68 69 6e 67 20 62 6c |sing mat|ching bl|
|00004c60| 6f 63 6b 20 73 74 61 72 | 74 2e 0a 20 20 20 20 41 |ock star|t.. A|
|00004c70| 6c 6c 6f 77 65 64 20 76 | 61 6c 75 65 73 20 61 72 |llowed v|alues ar|
|00004c80| 65 20 27 62 6c 69 6e 6b | 2c 20 27 6e 6f 2d 62 6c |e 'blink|, 'no-bl|
|00004c90| 69 6e 6b 2c 20 61 6e 64 | 20 6e 69 6c 2c 20 77 68 |ink, and| nil, wh|
|00004ca0| 69 63 68 20 64 65 74 65 | 72 6d 69 6e 65 0a 20 20 |ich dete|rmine. |
|00004cb0| 20 20 77 68 65 74 68 65 | 72 20 74 6f 20 62 6c 69 | whethe|r to bli|
|00004cc0| 6e 6b 20 74 68 65 20 6d | 61 74 63 68 69 6e 67 20 |nk the m|atching |
|00004cd0| 62 65 67 69 6e 6e 69 6e | 67 2e 29 20 28 64 65 66 |beginnin|g.) (def|
|00004ce0| 61 75 6c 74 20 27 62 6c | 69 6e 6b 29 0a 20 66 39 |ault 'bl|ink). f9|
|00004cf0| 30 2d 61 75 74 6f 2d 6b | 65 79 77 6f 72 64 2d 63 |0-auto-k|eyword-c|
|00004d00| 61 73 65 0a 20 20 20 20 | 41 75 74 6f 6d 61 74 69 |ase. |Automati|
|00004d10| 63 20 63 68 61 6e 67 65 | 20 6f 66 20 63 61 73 65 |c change| of case|
|00004d20| 20 6f 66 20 6b 65 79 77 | 6f 72 64 73 2e 20 28 64 | of keyw|ords. (d|
|00004d30| 65 66 61 75 6c 74 20 6e | 69 6c 29 0a 20 20 20 20 |efault n|il). |
|00004d40| 54 68 65 20 70 6f 73 73 | 69 62 69 6c 69 74 69 65 |The poss|ibilitie|
|00004d50| 73 20 61 72 65 20 27 64 | 6f 77 6e 63 61 73 65 2d |s are 'd|owncase-|
|00004d60| 77 6f 72 64 2c 20 27 75 | 70 63 61 73 65 2d 77 6f |word, 'u|pcase-wo|
|00004d70| 72 64 2c 20 27 63 61 70 | 69 74 61 6c 69 7a 65 2d |rd, 'cap|italize-|
|00004d80| 77 6f 72 64 2e 0a 20 66 | 39 30 2d 6c 65 61 76 65 |word.. f|90-leave|
|00004d90| 2d 6c 69 6e 65 2d 6e 6f | 0a 20 20 20 20 44 6f 20 |-line-no|. Do |
|00004da0| 6e 6f 74 20 6c 65 66 74 | 2d 6a 75 73 74 69 66 79 |not left|-justify|
|00004db0| 20 6c 69 6e 65 20 6e 75 | 6d 62 65 72 73 2e 20 28 | line nu|mbers. (|
|00004dc0| 64 65 66 61 75 6c 74 20 | 6e 69 6c 29 0a 20 66 39 |default |nil). f9|
|00004dd0| 30 2d 73 74 61 72 74 75 | 70 2d 6d 65 73 73 61 67 |0-startu|p-messag|
|00004de0| 65 0a 20 20 20 20 53 65 | 74 20 74 6f 20 6e 69 6c |e. Se|t to nil|
|00004df0| 20 74 6f 20 69 6e 68 69 | 62 69 74 20 6d 65 73 73 | to inhi|bit mess|
|00004e00| 61 67 65 20 66 69 72 73 | 74 20 74 69 6d 65 20 46 |age firs|t time F|
|00004e10| 39 30 20 6d 6f 64 65 20 | 69 73 20 75 73 65 64 2e |90 mode |is used.|
|00004e20| 20 28 64 65 66 61 75 6c | 74 20 74 29 0a 20 66 39 | (defaul|t t). f9|
|00004e30| 30 2d 6b 65 79 77 6f 72 | 64 73 2d 72 65 0a 20 20 |0-keywor|ds-re. |
|00004e40| 20 20 4c 69 73 74 20 6f | 66 20 6b 65 79 77 6f 72 | List o|f keywor|
|00004e50| 64 73 20 75 73 65 64 20 | 66 6f 72 20 68 69 67 68 |ds used |for high|
|00004e60| 6c 69 67 68 74 69 6e 67 | 2f 75 70 63 61 73 65 2d |lighting|/upcase-|
|00004e70| 6b 65 79 77 6f 72 64 73 | 20 65 74 63 2e 0a 0a 54 |keywords| etc...T|
|00004e80| 75 72 6e 69 6e 67 20 6f | 6e 20 46 39 30 20 6d 6f |urning o|n F90 mo|
|00004e90| 64 65 20 63 61 6c 6c 73 | 20 74 68 65 20 76 61 6c |de calls| the val|
|00004ea0| 75 65 20 6f 66 20 74 68 | 65 20 76 61 72 69 61 62 |ue of th|e variab|
|00004eb0| 6c 65 20 60 66 39 30 2d | 6d 6f 64 65 2d 68 6f 6f |le `f90-|mode-hoo|
|00004ec0| 6b 27 0a 77 69 74 68 20 | 6e 6f 20 61 72 67 73 2c |k'.with |no args,|
|00004ed0| 20 69 66 20 74 68 61 74 | 20 76 61 6c 75 65 20 69 | if that| value i|
|00004ee0| 73 20 6e 6f 6e 2d 6e 69 | 6c 2e 1f 0a 28 64 65 66 |s non-ni|l...(def|
|00004ef0| 61 6c 69 61 73 20 27 66 | 39 30 2d 6d 6f 64 65 20 |alias 'f|90-mode |
|00004f00| 23 5b 6e 69 6c 20 22 c0 | 20 88 c1 12 c3 14 0d 16 |#[nil ".| .......|
|00004f10| 06 c7 0e 08 21 88 c9 0e | 5c 6e 21 88 cb cc 21 88 |....!...|\n!...!.|
|00004f20| cd 16 5c 66 cb ce 21 88 | cf 16 0e cb d0 21 88 d1 |..\f..!.|.....!..|
|00004f30| 16 10 cb d2 21 88 d3 16 | 12 cb d4 21 88 d5 16 14 |....!...|...!....|
|00004f40| cb d6 21 88 d7 16 16 cb | d8 21 88 d1 16 18 d9 16 |..!.....|.!......|
|00004f50| 1a db dc 0e 1d 5c 22 83 | 7b 00 de c1 df d1 23 88 |.....\".|{.....#.|
|00004f60| 0e 20 83 70 00 e1 c3 0e | 20 5c 22 84 70 00 e2 e3 |. .p....| \".p...|
|00004f70| 0e 20 21 21 88 e4 d9 0e | 25 5c 22 88 cb e6 21 88 |. !!....|%\"...!.|
|00004f80| 0e 27 16 26 82 8a 00 cb | e8 21 88 e9 16 28 cb ea |.'.&....|.!...(..|
|00004f90| 21 88 0e 2b 16 2a ec ed | 21 88 0e 2e 83 99 00 ef |!..+.*..|!.......|
|00004fa0| f0 0e 31 5c 22 88 d9 89 | 16 2e 87 22 20 5b 6b 69 |..1\"...|..." [ki|
|00004fb0| 6c 6c 2d 61 6c 6c 2d 6c | 6f 63 61 6c 2d 76 61 72 |ll-all-l|ocal-var|
|00004fc0| 69 61 62 6c 65 73 20 66 | 39 30 2d 6d 6f 64 65 20 |iables f|90-mode |
|00004fd0| 6d 61 6a 6f 72 2d 6d 6f | 64 65 20 22 46 39 30 22 |major-mo|de "F90"|
|00004fe0| 20 6d 6f 64 65 2d 6e 61 | 6d 65 20 66 39 30 2d 6d | mode-na|me f90-m|
|00004ff0| 6f 64 65 2d 61 62 62 72 | 65 76 2d 74 61 62 6c 65 |ode-abbr|ev-table|
|00005000| 20 6c 6f 63 61 6c 2d 61 | 62 62 72 65 76 2d 74 61 | local-a|bbrev-ta|
|00005010| 62 6c 65 20 73 65 74 2d | 73 79 6e 74 61 78 2d 74 |ble set-|syntax-t|
|00005020| 61 62 6c 65 20 66 39 30 | 2d 6d 6f 64 65 2d 73 79 |able f90|-mode-sy|
|00005030| 6e 74 61 78 2d 74 61 62 | 6c 65 20 75 73 65 2d 6c |ntax-tab|le use-l|
|00005040| 6f 63 61 6c 2d 6d 61 70 | 20 66 39 30 2d 6d 6f 64 |ocal-map| f90-mod|
|00005050| 65 2d 6d 61 70 20 6d 61 | 6b 65 2d 6c 6f 63 61 6c |e-map ma|ke-local|
|00005060| 2d 76 61 72 69 61 62 6c | 65 20 69 6e 64 65 6e 74 |-variabl|e indent|
|00005070| 2d 6c 69 6e 65 2d 66 75 | 6e 63 74 69 6f 6e 20 66 |-line-fu|nction f|
|00005080| 39 30 2d 69 6e 64 65 6e | 74 2d 6c 69 6e 65 20 69 |90-inden|t-line i|
|00005090| 6e 64 65 6e 74 2d 72 65 | 67 69 6f 6e 2d 66 75 6e |ndent-re|gion-fun|
|000050a0| 63 74 69 6f 6e 20 66 39 | 30 2d 69 6e 64 65 6e 74 |ction f9|0-indent|
|000050b0| 2d 72 65 67 69 6f 6e 20 | 72 65 71 75 69 72 65 2d |-region |require-|
|000050c0| 66 69 6e 61 6c 2d 6e 65 | 77 6c 69 6e 65 20 74 20 |final-ne|wline t |
|000050d0| 63 6f 6d 6d 65 6e 74 2d | 73 74 61 72 74 20 22 21 |comment-|start "!|
|000050e0| 22 20 63 6f 6d 6d 65 6e | 74 2d 73 74 61 72 74 2d |" commen|t-start-|
|000050f0| 73 6b 69 70 20 22 21 2b | 20 2a 22 20 63 6f 6d 6d |skip "!+| *" comm|
|00005100| 65 6e 74 2d 69 6e 64 65 | 6e 74 2d 66 75 6e 63 74 |ent-inde|nt-funct|
|00005110| 69 6f 6e 20 66 39 30 2d | 63 6f 6d 6d 65 6e 74 2d |ion f90-|comment-|
|00005120| 69 6e 64 65 6e 74 20 61 | 62 62 72 65 76 2d 61 6c |indent a|bbrev-al|
|00005130| 6c 2d 63 61 70 73 20 6e | 69 6c 20 69 6e 64 65 6e |l-caps n|il inden|
|00005140| 74 2d 74 61 62 73 2d 6d | 6f 64 65 20 73 74 72 69 |t-tabs-m|ode stri|
|00005150| 6e 67 2d 6d 61 74 63 68 | 20 22 58 65 6d 61 63 73 |ng-match| "Xemacs|
|00005160| 22 20 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 20 |" emacs-|version |
|00005170| 70 75 74 20 66 6f 6e 74 | 2d 6c 6f 63 6b 2d 6b 65 |put font|-lock-ke|
|00005180| 79 77 6f 72 64 73 2d 63 | 61 73 65 2d 66 6f 6c 64 |ywords-c|ase-fold|
|00005190| 2d 73 65 61 72 63 68 20 | 63 75 72 72 65 6e 74 2d |-search |current-|
|000051a0| 6d 65 6e 75 62 61 72 20 | 61 73 73 6f 63 20 73 65 |menubar |assoc se|
|000051b0| 74 2d 62 75 66 66 65 72 | 2d 6d 65 6e 75 62 61 72 |t-buffer|-menubar|
|000051c0| 20 63 6f 70 79 2d 73 65 | 71 75 65 6e 63 65 20 61 | copy-se|quence a|
|000051d0| 64 64 2d 73 75 62 6d 65 | 6e 75 20 66 39 30 2d 78 |dd-subme|nu f90-x|
|000051e0| 65 6d 61 63 73 2d 6d 65 | 6e 75 20 66 6f 6e 74 2d |emacs-me|nu font-|
|000051f0| 6c 6f 63 6b 2d 6b 65 79 | 77 6f 72 64 73 20 66 39 |lock-key|words f9|
|00005200| 30 2d 66 6f 6e 74 2d 6c | 6f 63 6b 2d 6b 65 79 77 |0-font-l|ock-keyw|
|00005210| 6f 72 64 73 20 66 6f 6e | 74 2d 6c 6f 63 6b 2d 64 |ords fon|t-lock-d|
|00005220| 65 66 61 75 6c 74 73 20 | 28 28 66 39 30 2d 66 6f |efaults |((f90-fo|
|00005230| 6e 74 2d 6c 6f 63 6b 2d | 6b 65 79 77 6f 72 64 73 |nt-lock-|keywords|
|00005240| 20 66 39 30 2d 66 6f 6e | 74 2d 6c 6f 63 6b 2d 6b | f90-fon|t-lock-k|
|00005250| 65 79 77 6f 72 64 73 2d | 31 20 66 39 30 2d 66 6f |eywords-|1 f90-fo|
|00005260| 6e 74 2d 6c 6f 63 6b 2d | 6b 65 79 77 6f 72 64 73 |nt-lock-|keywords|
|00005270| 2d 32 20 66 39 30 2d 66 | 6f 6e 74 2d 6c 6f 63 6b |-2 f90-f|ont-lock|
|00005280| 2d 6b 65 79 77 6f 72 64 | 73 2d 33 20 66 39 30 2d |-keyword|s-3 f90-|
|00005290| 66 6f 6e 74 2d 6c 6f 63 | 6b 2d 6b 65 79 77 6f 72 |font-loc|k-keywor|
|000052a0| 64 73 2d 34 29 20 6e 69 | 6c 20 74 29 20 69 6d 65 |ds-4) ni|l t) ime|
|000052b0| 6e 75 2d 67 65 6e 65 72 | 69 63 2d 65 78 70 72 65 |nu-gener|ic-expre|
|000052c0| 73 73 69 6f 6e 20 66 39 | 30 2d 69 6d 65 6e 75 2d |ssion f9|0-imenu-|
|000052d0| 67 65 6e 65 72 69 63 2d | 65 78 70 72 65 73 73 69 |generic-|expressi|
|000052e0| 6f 6e 20 72 75 6e 2d 68 | 6f 6f 6b 73 20 66 39 30 |on run-h|ooks f90|
|000052f0| 2d 6d 6f 64 65 2d 68 6f | 6f 6b 20 66 39 30 2d 73 |-mode-ho|ok f90-s|
|00005300| 74 61 72 74 75 70 2d 6d | 65 73 73 61 67 65 20 6d |tartup-m|essage m|
|00005310| 65 73 73 61 67 65 20 22 | 45 6d 61 63 73 20 46 39 |essage "|Emacs F9|
|00005320| 30 20 6d 6f 64 65 3b 20 | 70 6c 65 61 73 65 20 72 |0 mode; |please r|
|00005330| 65 70 6f 72 74 20 62 75 | 67 73 20 74 6f 20 25 73 |eport bu|gs to %s|
|00005340| 22 20 62 75 67 2d 66 39 | 30 2d 6d 6f 64 65 5d 20 |" bug-f9|0-mode] |
|00005350| 34 20 28 23 24 20 2e 20 | 31 37 38 38 34 29 20 6e |4 (#$ . |17884) n|
|00005360| 69 6c 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |il]).(de|falias '|
|00005370| 66 39 30 2d 67 65 74 2d | 62 65 67 2d 6f 66 2d 6c |f90-get-|beg-of-l|
|00005380| 69 6e 65 20 23 5b 6e 69 | 6c 20 22 8a c0 79 88 60 |ine #[ni|l "..y.`|
|00005390| 29 87 22 20 5b 30 5d 20 | 31 5d 29 0a 28 70 75 74 |)." [0] |1]).(put|
|000053a0| 20 28 71 75 6f 74 65 20 | 66 39 30 2d 67 65 74 2d | (quote |f90-get-|
|000053b0| 62 65 67 2d 6f 66 2d 6c | 69 6e 65 29 20 28 71 75 |beg-of-l|ine) (qu|
|000053c0| 6f 74 65 20 62 79 74 65 | 2d 6f 70 74 69 6d 69 7a |ote byte|-optimiz|
|000053d0| 65 72 29 20 28 71 75 6f | 74 65 20 62 79 74 65 2d |er) (quo|te byte-|
|000053e0| 63 6f 6d 70 69 6c 65 2d | 69 6e 6c 69 6e 65 2d 65 |compile-|inline-e|
|000053f0| 78 70 61 6e 64 29 29 0a | 28 64 65 66 61 6c 69 61 |xpand)).|(defalia|
|00005400| 73 20 27 66 39 30 2d 67 | 65 74 2d 65 6e 64 2d 6f |s 'f90-g|et-end-o|
|00005410| 66 2d 6c 69 6e 65 20 23 | 5b 6e 69 6c 20 22 8a c0 |f-line #|[nil "..|
|00005420| 7f 88 60 29 87 22 20 5b | 6e 69 6c 5d 20 31 5d 29 |..`)." [|nil] 1])|
|00005430| 0a 28 70 75 74 20 28 71 | 75 6f 74 65 20 66 39 30 |.(put (q|uote f90|
|00005440| 2d 67 65 74 2d 65 6e 64 | 2d 6f 66 2d 6c 69 6e 65 |-get-end|-of-line|
|00005450| 29 20 28 71 75 6f 74 65 | 20 62 79 74 65 2d 6f 70 |) (quote| byte-op|
|00005460| 74 69 6d 69 7a 65 72 29 | 20 28 71 75 6f 74 65 20 |timizer)| (quote |
|00005470| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 2d 69 6e 6c |byte-com|pile-inl|
|00005480| 69 6e 65 2d 65 78 70 61 | 6e 64 29 29 0a 28 64 65 |ine-expa|nd)).(de|
|00005490| 66 61 6c 69 61 73 20 27 | 66 39 30 2d 69 6e 2d 73 |falias '|f90-in-s|
|000054a0| 74 72 69 6e 67 20 23 5b | 6e 69 6c 20 22 08 83 0e |tring #[|nil "...|
|000054b0| 00 60 08 56 83 0e 00 08 | 82 0f 00 65 19 c2 c3 09 |.`.V....|...e....|
|000054c0| 60 5c 22 38 29 87 22 20 | 5b 66 39 30 2d 63 61 63 |`\"8)." |[f90-cac|
|000054d0| 68 65 2d 70 6f 73 69 74 | 69 6f 6e 20 62 65 67 2d |he-posit|ion beg-|
|000054e0| 70 6e 74 20 33 20 70 61 | 72 73 65 2d 70 61 72 74 |pnt 3 pa|rse-part|
|000054f0| 69 61 6c 2d 73 65 78 70 | 5d 20 34 5d 29 0a 28 70 |ial-sexp|] 4]).(p|
|00005500| 75 74 20 28 71 75 6f 74 | 65 20 66 39 30 2d 69 6e |ut (quot|e f90-in|
|00005510| 2d 73 74 72 69 6e 67 29 | 20 28 71 75 6f 74 65 20 |-string)| (quote |
|00005520| 62 79 74 65 2d 6f 70 74 | 69 6d 69 7a 65 72 29 20 |byte-opt|imizer) |
|00005530| 28 71 75 6f 74 65 20 62 | 79 74 65 2d 63 6f 6d 70 |(quote b|yte-comp|
|00005540| 69 6c 65 2d 69 6e 6c 69 | 6e 65 2d 65 78 70 61 6e |ile-inli|ne-expan|
|00005550| 64 29 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 66 |d)).(def|alias 'f|
|00005560| 39 30 2d 69 6e 2d 63 6f | 6d 6d 65 6e 74 20 23 5b |90-in-co|mment #[|
|00005570| 6e 69 6c 20 22 08 83 0e | 00 60 08 56 83 0e 00 08 |nil "...|.`.V....|
|00005580| 82 0f 00 65 19 c2 c3 09 | 60 5c 22 38 29 87 22 20 |...e....|`\"8)." |
|00005590| 5b 66 39 30 2d 63 61 63 | 68 65 2d 70 6f 73 69 74 |[f90-cac|he-posit|
|000055a0| 69 6f 6e 20 62 65 67 2d | 70 6e 74 20 34 20 70 61 |ion beg-|pnt 4 pa|
|000055b0| 72 73 65 2d 70 61 72 74 | 69 61 6c 2d 73 65 78 70 |rse-part|ial-sexp|
|000055c0| 5d 20 34 5d 29 0a 28 70 | 75 74 20 28 71 75 6f 74 |] 4]).(p|ut (quot|
|000055d0| 65 20 66 39 30 2d 69 6e | 2d 63 6f 6d 6d 65 6e 74 |e f90-in|-comment|
|000055e0| 29 20 28 71 75 6f 74 65 | 20 62 79 74 65 2d 6f 70 |) (quote| byte-op|
|000055f0| 74 69 6d 69 7a 65 72 29 | 20 28 71 75 6f 74 65 20 |timizer)| (quote |
|00005600| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 2d 69 6e 6c |byte-com|pile-inl|
|00005610| 69 6e 65 2d 65 78 70 61 | 6e 64 29 29 0a 28 64 65 |ine-expa|nd)).(de|
|00005620| 66 61 6c 69 61 73 20 27 | 66 39 30 2d 6c 69 6e 65 |falias '|f90-line|
|00005630| 2d 63 6f 6e 74 69 6e 75 | 65 64 20 23 5b 6e 69 6c |-continu|ed #[nil|
|00005640| 20 22 8a 8a c0 79 88 60 | 29 19 c2 7f 88 0b 83 19 | "...y.`|).......|
|00005650| 00 60 0b 56 83 19 00 0b | 82 1a 00 65 1c c5 c6 5c |.`.V....|...e...\|
|00005660| 66 60 5c 22 38 29 83 31 | 00 c7 c8 09 5c 22 88 c8 |f`\"8).1|....\"..|
|00005670| c2 78 88 82 0b 00 c9 c2 | 78 88 68 ca 55 2a 87 22 |.x......|x.h.U*."|
|00005680| 20 5b 30 20 62 6f 6c 20 | 6e 69 6c 20 66 39 30 2d | [0 bol |nil f90-|
|00005690| 63 61 63 68 65 2d 70 6f | 73 69 74 69 6f 6e 20 62 |cache-po|sition b|
|000056a0| 65 67 2d 70 6e 74 20 34 | 20 70 61 72 73 65 2d 70 |eg-pnt 4| parse-p|
|000056b0| 61 72 74 69 61 6c 2d 73 | 65 78 70 20 73 65 61 72 |artial-s|exp sear|
|000056c0| 63 68 2d 62 61 63 6b 77 | 61 72 64 20 22 21 22 20 |ch-backw|ard "!" |
|000056d0| 22 20 09 22 20 33 38 5d | 20 34 5d 29 0a 28 70 75 |" ." 38]| 4]).(pu|
|000056e0| 74 20 28 71 75 6f 74 65 | 20 66 39 30 2d 6c 69 6e |t (quote| f90-lin|
|000056f0| 65 2d 63 6f 6e 74 69 6e | 75 65 64 29 20 28 71 75 |e-contin|ued) (qu|
|00005700| 6f 74 65 20 62 79 74 65 | 2d 6f 70 74 69 6d 69 7a |ote byte|-optimiz|
|00005710| 65 72 29 20 28 71 75 6f | 74 65 20 62 79 74 65 2d |er) (quo|te byte-|
|00005720| 63 6f 6d 70 69 6c 65 2d | 69 6e 6c 69 6e 65 2d 65 |compile-|inline-e|
|00005730| 78 70 61 6e 64 29 29 0a | 23 40 38 38 20 52 65 74 |xpand)).|#@88 Ret|
|00005740| 75 72 6e 20 69 6e 64 65 | 6e 74 61 74 69 6f 6e 20 |urn inde|ntation |
|00005750| 6f 66 20 63 75 72 72 65 | 6e 74 20 6c 69 6e 65 2e |of curre|nt line.|
|00005760| 0a 4c 69 6e 65 2d 6e 75 | 6d 62 65 72 73 20 61 72 |.Line-nu|mbers ar|
|00005770| 65 20 63 6f 6e 73 69 64 | 65 72 65 64 20 77 68 69 |e consid|ered whi|
|00005780| 74 65 73 70 61 63 65 20 | 63 68 61 72 61 63 74 65 |tespace |characte|
|00005790| 72 73 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |rs...(de|falias '|
|000057a0| 66 39 30 2d 63 75 72 72 | 65 6e 74 2d 69 6e 64 65 |f90-curr|ent-inde|
|000057b0| 6e 74 61 74 69 6f 6e 20 | 23 5b 6e 69 6c 20 22 8a |ntation |#[nil ".|
|000057c0| c0 79 88 c1 c2 77 88 69 | 29 87 22 20 5b 30 20 22 |.y...w.i|)." [0 "|
|000057d0| 20 09 30 2d 39 22 20 6e | 69 6c 5d 20 32 20 28 23 | .0-9" n|il] 2 (#|
|000057e0| 24 20 2e 20 32 32 33 33 | 33 29 5d 29 0a 28 70 75 |$ . 2233|3)]).(pu|
|000057f0| 74 20 28 71 75 6f 74 65 | 20 66 39 30 2d 63 75 72 |t (quote| f90-cur|
|00005800| 72 65 6e 74 2d 69 6e 64 | 65 6e 74 61 74 69 6f 6e |rent-ind|entation|
|00005810| 29 20 28 71 75 6f 74 65 | 20 62 79 74 65 2d 6f 70 |) (quote| byte-op|
|00005820| 74 69 6d 69 7a 65 72 29 | 20 28 71 75 6f 74 65 20 |timizer)| (quote |
|00005830| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 2d 69 6e 6c |byte-com|pile-inl|
|00005840| 69 6e 65 2d 65 78 70 61 | 6e 64 29 29 0a 23 40 39 |ine-expa|nd)).#@9|
|00005850| 33 20 49 6e 64 65 6e 74 | 20 63 75 72 72 65 6e 74 |3 Indent| current|
|00005860| 20 6c 69 6e 65 20 74 6f | 20 63 6f 6c 75 6d 6e 20 | line to| column |
|00005870| 43 4f 4c 2e 0a 49 66 20 | 6e 6f 2d 6c 69 6e 65 2d |COL..If |no-line-|
|00005880| 6e 75 6d 62 65 72 20 6e | 69 6c 2c 20 6a 75 6d 70 |number n|il, jump|
|00005890| 20 6f 76 65 72 20 61 20 | 70 6f 73 73 69 62 6c 65 | over a |possible|
|000058a0| 20 6c 69 6e 65 2d 6e 75 | 6d 62 65 72 2e 1f 0a 28 | line-nu|mber...(|
|000058b0| 64 65 66 61 6c 69 61 73 | 20 27 66 39 30 2d 69 6e |defalias| 'f90-in|
|000058c0| 64 65 6e 74 2d 74 6f 20 | 23 5b 28 63 6f 6c 20 26 |dent-to |#[(col &|
|000058d0| 6f 70 74 69 6f 6e 61 6c | 20 6e 6f 2d 6c 69 6e 65 |optional| no-line|
|000058e0| 2d 6e 75 6d 62 65 72 29 | 20 22 c0 79 88 09 84 0b |-number)| ".y....|
|000058f0| 00 c2 c3 77 88 c4 20 88 | 69 c0 55 83 17 00 0d 6a |...w.. .|i.U....j|
|00005900| 87 c6 0d c7 5c 22 87 22 | 20 5b 30 20 6e 6f 2d 6c |....\"."| [0 no-l|
|00005910| 69 6e 65 2d 6e 75 6d 62 | 65 72 20 22 20 09 30 2d |ine-numb|er " .0-|
|00005920| 39 22 20 6e 69 6c 20 64 | 65 6c 65 74 65 2d 68 6f |9" nil d|elete-ho|
|00005930| 72 69 7a 6f 6e 74 61 6c | 2d 73 70 61 63 65 20 63 |rizontal|-space c|
|00005940| 6f 6c 20 69 6e 64 65 6e | 74 2d 74 6f 20 31 5d 20 |ol inden|t-to 1] |
|00005950| 33 20 28 23 24 20 2e 20 | 32 32 36 31 30 29 5d 29 |3 (#$ . |22610)])|
|00005960| 0a 28 70 75 74 20 28 71 | 75 6f 74 65 20 66 39 30 |.(put (q|uote f90|
|00005970| 2d 69 6e 64 65 6e 74 2d | 74 6f 29 20 28 71 75 6f |-indent-|to) (quo|
|00005980| 74 65 20 62 79 74 65 2d | 6f 70 74 69 6d 69 7a 65 |te byte-|optimize|
|00005990| 72 29 20 28 71 75 6f 74 | 65 20 62 79 74 65 2d 63 |r) (quot|e byte-c|
|000059a0| 6f 6d 70 69 6c 65 2d 69 | 6e 6c 69 6e 65 2d 65 78 |ompile-i|nline-ex|
|000059b0| 70 61 6e 64 29 29 0a 28 | 64 65 66 61 6c 69 61 73 |pand)).(|defalias|
|000059c0| 20 27 66 39 30 2d 6d 61 | 74 63 68 2d 70 69 65 63 | 'f90-ma|tch-piec|
|000059d0| 65 20 23 5b 28 61 72 67 | 29 20 22 08 94 85 5c 6e |e #[(arg|) "...\n|
|000059e0| 00 08 94 08 95 7b 87 22 | 20 5b 61 72 67 5d 20 32 |.....{."| [arg] 2|
|000059f0| 5d 29 0a 28 70 75 74 20 | 28 71 75 6f 74 65 20 66 |]).(put |(quote f|
|00005a00| 39 30 2d 6d 61 74 63 68 | 2d 70 69 65 63 65 29 20 |90-match|-piece) |
|00005a10| 28 71 75 6f 74 65 20 62 | 79 74 65 2d 6f 70 74 69 |(quote b|yte-opti|
|00005a20| 6d 69 7a 65 72 29 20 28 | 71 75 6f 74 65 20 62 79 |mizer) (|quote by|
|00005a30| 74 65 2d 63 6f 6d 70 69 | 6c 65 2d 69 6e 6c 69 6e |te-compi|le-inlin|
|00005a40| 65 2d 65 78 70 61 6e 64 | 29 29 0a 28 64 65 66 61 |e-expand|)).(defa|
|00005a50| 6c 69 61 73 20 27 66 39 | 30 2d 67 65 74 2d 70 72 |lias 'f9|0-get-pr|
|00005a60| 65 73 65 6e 74 2d 63 6f | 6d 6d 65 6e 74 2d 74 79 |esent-co|mment-ty|
|00005a70| 70 65 20 23 5b 6e 69 6c | 20 22 8a c0 8a c0 7f 88 |pe #[nil| "......|
|00005a80| 60 29 19 1a 0b 83 18 00 | 60 0b 56 83 18 00 0b 82 |`)......|`.V.....|
|00005a90| 19 00 65 1c c5 c6 5c 66 | 60 5c 22 38 29 83 54 00 |..e...\f|`\"8).T.|
|00005aa0| c7 79 88 c8 c9 09 5c 22 | 88 0b 83 3a 00 60 0b 56 |.y....\"|...:.`.V|
|00005ab0| 83 3a 00 0b 82 3b 00 65 | 1c ca c6 5c 66 60 5c 22 |.:...;.e|...\f`\"|
|00005ac0| 38 29 83 4e 00 c8 c9 09 | 5c 22 88 82 2c 00 c7 94 |8).N....|\"..,...|
|00005ad0| c7 95 7b 12 5c 6e 2b 87 | 22 20 5b 6e 69 6c 20 65 |..{.\n+.|" [nil e|
|00005ae0| 6f 6c 20 74 79 70 65 20 | 66 39 30 2d 63 61 63 68 |ol type |f90-cach|
|00005af0| 65 2d 70 6f 73 69 74 69 | 6f 6e 20 62 65 67 2d 70 |e-positi|on beg-p|
|00005b00| 6e 74 20 34 20 70 61 72 | 73 65 2d 70 61 72 74 69 |nt 4 par|se-parti|
|00005b10| 61 6c 2d 73 65 78 70 20 | 30 20 72 65 2d 73 65 61 |al-sexp |0 re-sea|
|00005b20| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 22 5b 21 5d |rch-forw|ard "[!]|
|00005b30| 2b 22 20 33 5d 20 34 5d | 29 0a 28 70 75 74 20 28 |+" 3] 4]|).(put (|
|00005b40| 71 75 6f 74 65 20 66 39 | 30 2d 67 65 74 2d 70 72 |quote f9|0-get-pr|
|00005b50| 65 73 65 6e 74 2d 63 6f | 6d 6d 65 6e 74 2d 74 79 |esent-co|mment-ty|
|00005b60| 70 65 29 20 28 71 75 6f | 74 65 20 62 79 74 65 2d |pe) (quo|te byte-|
|00005b70| 6f 70 74 69 6d 69 7a 65 | 72 29 20 28 71 75 6f 74 |optimize|r) (quot|
|00005b80| 65 20 62 79 74 65 2d 63 | 6f 6d 70 69 6c 65 2d 69 |e byte-c|ompile-i|
|00005b90| 6e 6c 69 6e 65 2d 65 78 | 70 61 6e 64 29 29 0a 23 |nline-ex|pand)).#|
|00005ba0| 40 36 31 20 43 6f 6d 70 | 61 72 65 20 73 74 72 69 |@61 Comp|are stri|
|00005bb0| 6e 67 73 20 6e 65 67 6c | 65 63 74 69 6e 67 20 63 |ngs negl|ecting c|
|00005bc0| 61 73 65 20 61 6e 64 20 | 61 6c 6c 6f 77 69 6e 67 |ase and |allowing|
|00005bd0| 20 66 6f 72 20 6e 69 6c | 20 76 61 6c 75 65 2e 1f | for nil| value..|
|00005be0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 66 39 30 2d |.(defali|as 'f90-|
|00005bf0| 65 71 75 61 6c 2d 73 79 | 6d 62 6f 6c 73 20 23 5b |equal-sy|mbols #[|
|00005c00| 28 61 20 62 29 20 22 08 | 85 06 00 08 97 09 85 5c |(a b) ".|.......\|
|00005c10| 66 00 09 97 1a 89 1b 5c | 6e 2a 9a 87 22 20 5b 61 |f......\|n*.." [a|
|00005c20| 20 62 20 62 2d 6c 6f 63 | 61 6c 20 61 2d 6c 6f 63 | b b-loc|al a-loc|
|00005c30| 61 6c 5d 20 33 20 28 23 | 24 20 2e 20 32 33 34 36 |al] 3 (#|$ . 2346|
|00005c40| 30 29 5d 29 0a 28 70 75 | 74 20 28 71 75 6f 74 65 |0)]).(pu|t (quote|
|00005c50| 20 66 39 30 2d 65 71 75 | 61 6c 2d 73 79 6d 62 6f | f90-equ|al-symbo|
|00005c60| 6c 73 29 20 28 71 75 6f | 74 65 20 62 79 74 65 2d |ls) (quo|te byte-|
|00005c70| 6f 70 74 69 6d 69 7a 65 | 72 29 20 28 71 75 6f 74 |optimize|r) (quot|
|00005c80| 65 20 62 79 74 65 2d 63 | 6f 6d 70 69 6c 65 2d 69 |e byte-c|ompile-i|
|00005c90| 6e 6c 69 6e 65 2d 65 78 | 70 61 6e 64 29 29 0a 23 |nline-ex|pand)).#|
|00005ca0| 40 31 30 31 20 52 65 74 | 75 72 6e 20 28 22 64 6f |@101 Ret|urn ("do|
|00005cb0| 22 20 6e 61 6d 65 29 20 | 69 66 20 61 20 64 6f 20 |" name) |if a do |
|00005cc0| 73 74 61 74 65 6d 65 6e | 74 20 73 74 61 72 74 73 |statemen|t starts|
|00005cd0| 20 61 66 74 65 72 20 70 | 6f 69 6e 74 2e 0a 4e 61 | after p|oint..Na|
|00005ce0| 6d 65 20 69 73 20 6e 69 | 6c 20 69 66 20 74 68 65 |me is ni|l if the|
|00005cf0| 20 73 74 61 74 65 6d 65 | 6e 74 20 68 61 73 20 6e | stateme|nt has n|
|00005d00| 6f 20 6c 61 62 65 6c 2e | 1f 0a 28 64 65 66 61 6c |o label.|..(defal|
|00005d10| 69 61 73 20 27 66 39 30 | 2d 6c 6f 6f 6b 69 6e 67 |ias 'f90|-looking|
|00005d20| 2d 61 74 2d 64 6f 20 23 | 5b 6e 69 6c 20 22 c0 c1 |-at-do #|[nil "..|
|00005d30| 21 85 31 00 c2 c3 1c c3 | 94 85 13 00 5c 66 94 5c |!.1.....|....\f.\|
|00005d40| 66 95 7b 29 1d 1e 06 c0 | c7 21 83 2c 00 c8 1c c8 |f.{)....|.!.,....|
|00005d50| 94 85 29 00 5c 66 94 5c | 66 95 7b 29 16 06 0d 0e |..).\f.\|f.{)....|
|00005d60| 06 2a 44 87 22 20 5b 6c | 6f 6f 6b 69 6e 67 2d 61 |.*D." [l|ooking-a|
|00005d70| 74 20 22 5c 5c 28 5c 5c | 28 5c 5c 73 77 2b 5c 5c |t "\\(\\|(\\sw+\\|
|00005d80| 29 5b 20 09 5d 2a 3a 5c | 5c 29 3f 5b 20 09 5d 2a |)[ .]*:\|\)?[ .]*|
|00005d90| 5c 5c 28 64 6f 5c 5c 29 | 5c 5c 3e 22 20 6e 69 6c |\\(do\\)|\\>" nil|
|00005da0| 20 33 20 61 72 67 20 73 | 74 72 75 63 74 20 6c 61 | 3 arg s|truct la|
|00005db0| 62 65 6c 20 22 5c 5c 28 | 5c 5c 73 77 2b 5c 5c 29 |bel "\\(|\\sw+\\)|
|00005dc0| 5b 20 09 5d 2a 3a 22 20 | 31 5d 20 33 20 28 23 24 |[ .]*:" |1] 3 (#$|
|00005dd0| 20 2e 20 32 33 37 31 37 | 29 5d 29 0a 28 70 75 74 | . 23717|)]).(put|
|00005de0| 20 28 71 75 6f 74 65 20 | 66 39 30 2d 6c 6f 6f 6b | (quote |f90-look|
|00005df0| 69 6e 67 2d 61 74 2d 64 | 6f 29 20 28 71 75 6f 74 |ing-at-d|o) (quot|
|00005e00| 65 20 62 79 74 65 2d 6f | 70 74 69 6d 69 7a 65 72 |e byte-o|ptimizer|
|00005e10| 29 20 28 71 75 6f 74 65 | 20 62 79 74 65 2d 63 6f |) (quote| byte-co|
|00005e20| 6d 70 69 6c 65 2d 69 6e | 6c 69 6e 65 2d 65 78 70 |mpile-in|line-exp|
|00005e30| 61 6e 64 29 29 0a 23 40 | 31 31 34 20 52 65 74 75 |and)).#@|114 Retu|
|00005e40| 72 6e 20 28 22 73 65 6c | 65 63 74 22 20 6e 61 6d |rn ("sel|ect" nam|
|00005e50| 65 29 20 69 66 20 61 20 | 73 65 6c 65 63 74 2d 63 |e) if a |select-c|
|00005e60| 61 73 65 20 73 74 61 74 | 65 6d 65 6e 74 20 73 74 |ase stat|ement st|
|00005e70| 61 72 74 73 20 61 66 74 | 65 72 20 70 6f 69 6e 74 |arts aft|er point|
|00005e80| 2e 0a 4e 61 6d 65 20 69 | 73 20 6e 69 6c 20 69 66 |..Name i|s nil if|
|00005e90| 20 74 68 65 20 73 74 61 | 74 65 6d 65 6e 74 20 68 | the sta|tement h|
|00005ea0| 61 73 20 6e 6f 20 6c 61 | 62 65 6c 2e 1f 0a 28 64 |as no la|bel...(d|
|00005eb0| 65 66 61 6c 69 61 73 20 | 27 66 39 30 2d 6c 6f 6f |efalias |'f90-loo|
|00005ec0| 6b 69 6e 67 2d 61 74 2d | 73 65 6c 65 63 74 2d 63 |king-at-|select-c|
|00005ed0| 61 73 65 20 23 5b 6e 69 | 6c 20 22 c0 c1 21 85 31 |ase #[ni|l "..!.1|
|00005ee0| 00 c2 c3 1c c3 94 85 13 | 00 5c 66 94 5c 66 95 7b |........|.\f.\f.{|
|00005ef0| 29 1d 1e 06 c0 c7 21 83 | 2c 00 c8 1c c8 94 85 29 |).....!.|,......)|
|00005f00| 00 5c 66 94 5c 66 95 7b | 29 16 06 0d 0e 06 2a 44 |.\f.\f.{|).....*D|
|00005f10| 87 22 20 5b 6c 6f 6f 6b | 69 6e 67 2d 61 74 20 22 |." [look|ing-at "|
|00005f20| 5c 5c 28 5c 5c 28 5c 5c | 73 77 2b 5c 5c 29 5b 20 |\\(\\(\\|sw+\\)[ |
|00005f30| 09 5d 2a 3a 5c 5c 29 3f | 5b 20 09 5d 2a 5c 5c 28 |.]*:\\)?|[ .]*\\(|
|00005f40| 73 65 6c 65 63 74 5c 5c | 29 5b 20 09 5d 2a 63 61 |select\\|)[ .]*ca|
|00005f50| 73 65 5b 20 09 5d 2a 28 | 22 20 6e 69 6c 20 33 20 |se[ .]*(|" nil 3 |
|00005f60| 61 72 67 20 73 74 72 75 | 63 74 20 6c 61 62 65 6c |arg stru|ct label|
|00005f70| 20 22 5c 5c 28 5c 5c 73 | 77 2b 5c 5c 29 5b 20 09 | "\\(\\s|w+\\)[ .|
|00005f80| 5d 2a 3a 22 20 31 5d 20 | 33 20 28 23 24 20 2e 20 |]*:" 1] |3 (#$ . |
|00005f90| 32 34 31 32 34 29 5d 29 | 0a 28 70 75 74 20 28 71 |24124)])|.(put (q|
|00005fa0| 75 6f 74 65 20 66 39 30 | 2d 6c 6f 6f 6b 69 6e 67 |uote f90|-looking|
|00005fb0| 2d 61 74 2d 73 65 6c 65 | 63 74 2d 63 61 73 65 29 |-at-sele|ct-case)|
|00005fc0| 20 28 71 75 6f 74 65 20 | 62 79 74 65 2d 6f 70 74 | (quote |byte-opt|
|00005fd0| 69 6d 69 7a 65 72 29 20 | 28 71 75 6f 74 65 20 62 |imizer) |(quote b|
|00005fe0| 79 74 65 2d 63 6f 6d 70 | 69 6c 65 2d 69 6e 6c 69 |yte-comp|ile-inli|
|00005ff0| 6e 65 2d 65 78 70 61 6e | 64 29 29 0a 23 40 31 31 |ne-expan|d)).#@11|
|00006000| 30 20 52 65 74 75 72 6e | 20 28 22 69 66 22 20 6e |0 Return| ("if" n|
|00006010| 61 6d 65 29 20 69 66 20 | 61 6e 20 69 66 20 28 29 |ame) if |an if ()|
|00006020| 20 74 68 65 6e 20 73 74 | 61 74 65 6d 65 6e 74 20 | then st|atement |
|00006030| 73 74 61 72 74 73 20 61 | 66 74 65 72 20 70 6f 69 |starts a|fter poi|
|00006040| 6e 74 2e 0a 4e 61 6d 65 | 20 69 73 20 6e 69 6c 20 |nt..Name| is nil |
|00006050| 69 66 20 74 68 65 20 73 | 74 61 74 65 6d 65 6e 74 |if the s|tatement|
|00006060| 20 68 61 73 20 6e 6f 20 | 6c 61 62 65 6c 2e 1f 0a | has no |label...|
|00006070| 28 64 65 66 61 6c 69 61 | 73 20 27 66 39 30 2d 6c |(defalia|s 'f90-l|
|00006080| 6f 6f 6b 69 6e 67 2d 61 | 74 2d 69 66 2d 74 68 65 |ooking-a|t-if-the|
|00006090| 6e 20 23 5b 6e 69 6c 20 | 22 8a c0 89 19 1a c3 c4 |n #[nil |".......|
|000060a0| 21 85 97 00 c5 1e 06 c5 | 94 85 1a 00 0e 06 94 0e |!.......|........|
|000060b0| 06 95 7b 29 12 c3 c7 21 | 83 33 00 c8 1e 06 c8 94 |..{)...!|.3......|
|000060c0| 85 31 00 0e 06 94 0e 06 | 95 7b 29 11 c9 60 c8 ca |.1......|.{)..`..|
|000060d0| 23 62 88 cb c0 77 88 c3 | cc 21 84 94 00 8a 8a ca |#b...w..|.!......|
|000060e0| 79 88 60 29 1e 0d c0 7f | 88 0e 0e 83 61 00 60 0e |y.`)....|....a.`.|
|000060f0| 0e 56 83 61 00 0e 0e 82 | 62 00 65 1e 0f d0 d1 0e |.V.a....|b.e.....|
|00006100| 0f 60 5c 22 38 29 83 7c | 00 d2 d3 0e 0d 5c 22 88 |.`\"8).||.....\".|
|00006110| d3 c0 78 88 82 50 00 cb | c0 78 88 68 d4 55 2a 85 |..x..P..|.x.h.U*.|
|00006120| 97 00 d5 20 88 d6 c0 77 | 88 c3 cc 21 85 97 00 5c |... ...w|...!...\|
|00006130| 6e 09 44 2b 87 22 20 5b | 6e 69 6c 20 6c 61 62 65 |n.D+." [|nil labe|
|00006140| 6c 20 73 74 72 75 63 74 | 20 6c 6f 6f 6b 69 6e 67 |l struct| looking|
|00006150| 2d 61 74 20 22 5c 5c 28 | 5c 5c 28 5c 5c 73 77 2b |-at "\\(|\\(\\sw+|
|00006160| 5c 5c 29 5b 20 09 5d 2a | 3a 5c 5c 29 3f 5b 20 09 |\\)[ .]*|:\\)?[ .|
|00006170| 5d 2a 5c 5c 28 69 66 5c | 5c 29 5c 5c 3e 22 20 33 |]*\\(if\|\)\\>" 3|
|00006180| 20 61 72 67 20 22 5c 5c | 28 5c 5c 73 77 2b 5c 5c | arg "\\|(\\sw+\\|
|00006190| 29 5b 20 09 5d 2a 3a 22 | 20 31 20 73 63 61 6e 2d |)[ .]*:"| 1 scan-|
|000061a0| 6c 69 73 74 73 20 30 20 | 22 20 09 22 20 22 74 68 |lists 0 |" ." "th|
|000061b0| 65 6e 5c 5c 3e 22 20 62 | 6f 6c 20 66 39 30 2d 63 |en\\>" b|ol f90-c|
|000061c0| 61 63 68 65 2d 70 6f 73 | 69 74 69 6f 6e 20 62 65 |ache-pos|ition be|
|000061d0| 67 2d 70 6e 74 20 34 20 | 70 61 72 73 65 2d 70 61 |g-pnt 4 |parse-pa|
|000061e0| 72 74 69 61 6c 2d 73 65 | 78 70 20 73 65 61 72 63 |rtial-se|xp searc|
|000061f0| 68 2d 62 61 63 6b 77 61 | 72 64 20 22 21 22 20 33 |h-backwa|rd "!" 3|
|00006200| 38 20 66 39 30 2d 6e 65 | 78 74 2d 73 74 61 74 65 |8 f90-ne|xt-state|
|00006210| 6d 65 6e 74 20 22 20 09 | 30 2d 39 26 22 5d 20 34 |ment " .|0-9&"] 4|
|00006220| 20 28 23 24 20 2e 20 32 | 34 35 37 38 29 5d 29 0a | (#$ . 2|4578)]).|
|00006230| 28 70 75 74 20 28 71 75 | 6f 74 65 20 66 39 30 2d |(put (qu|ote f90-|
|00006240| 6c 6f 6f 6b 69 6e 67 2d | 61 74 2d 69 66 2d 74 68 |looking-|at-if-th|
|00006250| 65 6e 29 20 28 71 75 6f | 74 65 20 62 79 74 65 2d |en) (quo|te byte-|
|00006260| 6f 70 74 69 6d 69 7a 65 | 72 29 20 28 71 75 6f 74 |optimize|r) (quot|
|00006270| 65 20 62 79 74 65 2d 63 | 6f 6d 70 69 6c 65 2d 69 |e byte-c|ompile-i|
|00006280| 6e 6c 69 6e 65 2d 65 78 | 70 61 6e 64 29 29 0a 23 |nline-ex|pand)).#|
|00006290| 40 36 31 20 52 65 74 75 | 72 6e 20 28 6b 69 6e 64 |@61 Retu|rn (kind|
|000062a0| 20 6e 69 6c 29 20 69 66 | 20 77 68 65 72 65 2f 66 | nil) if| where/f|
|000062b0| 6f 72 61 6c 6c 2e 2e 2e | 65 6e 64 20 73 74 61 72 |orall...|end star|
|000062c0| 74 73 20 61 66 74 65 72 | 20 70 6f 69 6e 74 2e 1f |ts after| point..|
|000062d0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 66 39 30 2d |.(defali|as 'f90-|
|000062e0| 6c 6f 6f 6b 69 6e 67 2d | 61 74 2d 77 68 65 72 65 |looking-|at-where|
|000062f0| 2d 6f 72 2d 66 6f 72 61 | 6c 6c 20 23 5b 6e 69 6c |-or-fora|ll #[nil|
|00006300| 20 22 8a c0 19 c2 c3 21 | 85 2b 00 c4 1d c4 94 85 | ".....!|.+......|
|00006310| 15 00 0d 94 0d 95 7b 29 | c0 44 11 c6 60 c4 c7 23 |......{)|.D..`..#|
|00006320| 62 88 c8 c0 77 88 c2 c9 | 21 85 2b 00 09 2a 87 22 |b...w...|!.+..*."|
|00006330| 20 5b 6e 69 6c 20 63 6f | 6d 6d 61 6e 64 20 6c 6f | [nil co|mmand lo|
|00006340| 6f 6b 69 6e 67 2d 61 74 | 20 22 5c 5c 28 77 68 65 |oking-at| "\\(whe|
|00006350| 72 65 5c 5c 7c 66 6f 72 | 61 6c 6c 5c 5c 29 5b 20 |re\\|for|all\\)[ |
|00006360| 09 5d 2a 28 22 20 31 20 | 61 72 67 20 73 63 61 6e |.]*(" 1 |arg scan|
|00006370| 2d 6c 69 73 74 73 20 30 | 20 22 20 09 22 20 22 5c |-lists 0| " ." "\|
|00006380| 5c 28 21 5c 5c 7c 24 5c | 5c 29 22 5d 20 34 20 28 |\(!\\|$\|\)"] 4 (|
|00006390| 23 24 20 2e 20 32 35 32 | 33 36 29 5d 29 0a 28 70 |#$ . 252|36)]).(p|
|000063a0| 75 74 20 28 71 75 6f 74 | 65 20 66 39 30 2d 6c 6f |ut (quot|e f90-lo|
|000063b0| 6f 6b 69 6e 67 2d 61 74 | 2d 77 68 65 72 65 2d 6f |oking-at|-where-o|
|000063c0| 72 2d 66 6f 72 61 6c 6c | 29 20 28 71 75 6f 74 65 |r-forall|) (quote|
|000063d0| 20 62 79 74 65 2d 6f 70 | 74 69 6d 69 7a 65 72 29 | byte-op|timizer)|
|000063e0| 20 28 71 75 6f 74 65 20 | 62 79 74 65 2d 63 6f 6d | (quote |byte-com|
|000063f0| 70 69 6c 65 2d 69 6e 6c | 69 6e 65 2d 65 78 70 61 |pile-inl|ine-expa|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
